F -Punch along this edge insertion into a binder- (Sits, 
= g ge fam) 


THE SYM USERS' GROUP OFFICE WILL BE STAFFED ONLY FROM 10:00 AM to 


4:00 PM on M-W-F FROM APRIL 7 TO MAY 15, 1982 


Ties hal = So¥ MN =k USERS. * Sk GO uwP NEWS LE. te ER 
VOLUME III, NUMBER 2 (ISSUE NO. 12) - SPRING 1982 (JAN/FEB/MAR? 


SYM-PHYSIS is a quarterly publication of the SYM-1 Users’ Grou Po. 
Box 319, Chico, CA 935927. SYM-PHYSIS and the SYM-1 Users’ Brose (SUG) 
are in no way associated with Synertek Systems Corporation (SBC) , and 
SSC has no responsibility for the contents of SYM-PHYSIS. SYM is a 
registered trademark o SSC. SYM-PHYSIS, from the Greek, means the 
state of growing together, to make grow, to bring forth. 


We welcome for publication all articles dealing with any aspect of the 
SYM-i, and its very close relatives. Authors retain all commercial 
SOR YEG ES « Portions of SYM-PHYSIS may be reproduced by clubs and edu-— 
cational institutions, and adaptations of programs for other computers 
may be freely BuoSaR ee with full credit beer’ and complimentary copies 
provided ta YM-PHYSI§ and the original author(s). Please include a 
self-addressed stamped envelape with afl correspondence. 


Editor/Publisher: A. R. “Lux” Luxenberg 
Business/Circulation: ¥vean Luxenber 
Office Staff: Joyce Arnovic 
Associate Editors: Dennis Hall, Jack Brown 

Tom Gettys, Jack Gieryic 


SUBSCRIPTION RATES: (Volume III, 1982, Issues 11 - 14) 


Roe tone ight tla ie Oe Bou aeons Elsewhere — $14.26. 
hecks payable in ollars to " —1 Users’ Group", P. 0. Box 
319, Chico, CA 545275 Telephone (916) 895-8751. ae : 


BACK ISSUES ARE STILL AVAILABLE AS FOLLOWS: 


Se a the Introductory Issue (1979), and Issues 1 through 6 (Volume 
3 


are available, as a package, for 12.9%, US/C : 
First Class/Airmail, elsewhere” = : bis ial Bae 


Issues 7 through 1@ (Volume II, 1981) are available for 419.59, 
US/Canada, and $14.9@, First Class/Airmail, elsewhere. 


ON LATE NEWSLETTERS 

We received today, in mid-March 1982, our copy of "THE TARGET — an AIM65 
newsletter" for July/December 1981. We get lots of SYM applicable ideas 
from Donald Clem*s (R.R. #2, Conant Road, Spencerville, OH 45887) 
newsletter, just finishing its third year. It is a bi-monthly, so this 
was actually a triple issue, covering July/August, September /October, 
and November /December of 1981. So you see, SYM-PHYSIS is not really 
"later than you think". We are merely conforming with computer news-— 
letter tradition! Speaking seriously, though, now that we have gotten 
"organized" to the point of using reviewers to help evaluate, debug, and 
polish submitted software, and volunteers to answer requests for help 
(see below), we should be able to meet the quarterly deadlines. 


HER 

We apologize once agaim for not being able to answer all of your letters 
for help, and ask you to write again if your problems have not yet 
resolved themselves. We think that we will be able to provide faster 
response time in the future, even while we ourselves are traveling, or 
otherwise not available, through the following procedure: 


If, and really only if, your requests for help are on separate sheets of 
Paper from any other type of correspondence, clearly marked “HELP”, and 
are accompanied by a self addressed, stamped (US only) return envelope, 
whoever opens the mail will be able to “batch” them and send the entire 
Package to one of a number of SYMmers who have offered to Provide such 
help. It would be unfair to ask these volunteers to also Pay for your 
postage. Overseas reply postage costs can best be handled by enclosina 
low denomination local currency. SYM-PHYSIS 11-1 


SYM DISK OPERATING SYSTEMS 

The SYM-1, as it comes out of its box, is a iK RAM, 4K ROM, single cas-— 
sette based system, powering-up, and/or resetting, to SUPERMON. When 
fully loaded (no external expansion, but with the Blalock RAM Board or 
2114 piggy-backing considered “internal"), it becomes an 8K RAM, 20K 
ROM, dual cassette based system, still resetting to SUPERMON, but with 
RAE and BASIC capabilities. 


At this point all SYMs are essentially equal, and all software is fully 
transportable via physical cassette transfers. Most of the SYMmers with 
whom we have communicated have brought their cassette systems up to 
nearly 199% reliability {some at double and triple times the standard 
speed). We have managed to read every cassette we have received (even 
double speed ones) because good cassette practice includes making at 
least double dumps (we use triple dumps on distribution cassettes) to 
provide data redundancy in the event of any glitches caused by tape 
dropouts. 


We are very much satisfied with the SYM cassette interface as the 
Primary means for inter-SYM data and software interchange. With a 4k, 
or even an SK system, the cassette interface provides an acceptable mass 
storage system. With expansion to 24K or 32K, and the concomitant 
longer files, cassettes become impractical, except for backup purposes 
(when we had only one SYM/FODS system we backed up our mailing lists on 
a second disk and triple cassette dumps!). Have you ever seen a 48K Ap- 
Ple II system without at least a single Disk II beside it? 


Note that we said Disk II; we emphasize this, because all Apple IIs use 
the same (or wholly compatible) controllers, drives and DOSes, thus 
ensuring full software transportability between Apples. It is this 
“universality” of software exchange that provides a large market for 
software entrepreneurs, thereby encouraging the development of good (‘and 
bad!) software for the Apple. Furthermore this software is distributed 
mainly on diskettes. 


We are now too far downstream with the SYM for a universal DOS (Disk 
Operating System) to evolve, and perhaps this is for the best, after 
all. We are free to chose any combination of hardware and software that 
matches our needs, subject, of course, to our financial abilities. In 
the following paragraphs, we will briefly describe some of the disk sys- 
tems now available for SYM, but first presenting some preliminary back- 
ground information on drives and disks in general. 


GENERAL 


For "personal" use, especially for the type of research and report pre- 
paration we do, we prefer the 5 1/4 inch drive systems because they are 
quieter, more compact, and cheaper than 8 inch drive systems. Where the 
noise, size, and cost are not important factors, the greater access 
speed and on-line storage capacity of the 8 inch drives are really nice 
to have, and in some applications, even these might be inadequate. 
That’s why hard disks are becoming so popular! 


The choice of drive size is yours alone to make, as is the choice of 
make and model. The major differences between the various brands appear 
to be in the speeds at which the heads are loaded against the disk and 
the rates at which the heads are stepped from track to track. The 
controller software has built-in delays to accomodate the slowest 
available drives. If you use one of the faster drives it is well worth 
your time to customize the software to it. Disk load times can be 
speeded up by as much as a factor of five times. While most suppliers 
of DOSes guard their source codes as if they were were divine mysteries, 
a disassembly and study of that part of the object cade containing the 


(continued to page 11-36) SYM-PHYSIS 11-2 


A 49K SYM-1 MEMORY EXPANSION BY GEORGE WELLS 
Here iS a memory expansion scheme for the SYM-1 that has the following 
features: 


1. 49K of RAM continuous from $9999 to $9FFF. 

2. Top three 1K groups of RAM ($9499-$9FFF) are write 
protectable. 

3. EPROM or ROM can overlay RAM from $1999 to $8FFF with 
automatic switching between them. 


The components used in this arrangement would typically be: 


1. 4K on-board static RAM with modified decoding to appear at 
$999S-S9FFF. 

2. Blalock’s 4K static RAM expansion with modified decoding to 
appear at $9@09-$9FFF. 

3. 32K dynamic RAM at $1999 to S$8FFF (available from several 
sources). 

4. Monitor ROM at $8999 to $8FFF (normal). 

5. Additional EPROMs, as desired, between $1999 and $7FFF. 

6 One IC wired to automatically switch between the RAM and 
ROM banks. 


Anyone attempting to implement this idea should thoroughly understand it 
before beginning. The procedure given assumes that you can find the 
various signals on your PC boards and that you have some knowledge of 
logic design. 


Before starting, the address space between $9969 and $9FFF should be 
clear of all memory and I/0 except for the original 4K RAM, the Blalock 
4K RAM, and the System Monitor ROM. Also, verify correct operation of 
the Write Protect feature as described in the SYM-1 Reference Manual, 
pages 4-26 and 5-19. 


For the 
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RAM block 


TULS32 
(add) 


Typical RAM Expansion Board 


(1) Cut the AlL2 trace leading to pin 3 of Ul on the bottom 
side of the board. 

{2) Insert the spare inverter by adding two wires to the 
bottom of the board as shawn. Make sure U2-pin 2 goes to 
Ui-pin 3. 


At this point, you should again verify correct operation of the Write 
Protect function, but this time the three 1K groups are $1499-G17FF, 
$1899-$1BFF, and $iC99-G1FFF. To write protect the last 1K of RAM, it 
is only necessary to enter Wi (instead of W 9@1). 


The next three steps move the 4K block of RAM currently at $1999-$1FFF 
to $9999-$9FFF. This includes the write protectable RAM. The Blalock 
RAM stays at $G09G-S@FFF. 


(3) On the bottom of the board, cut the two traces leading to 
US-pin 1 and join them with wire, leaving pin 1 out of the 
connection. 

(4) On the top of the board, install a 3.3K pull-up resistor 
from pins 1@ and 11 of U19 to any convenient +5V source. 


At this point, the previously unused outputs of decoder U1 will go low 
any time an address block beginning with $@, $4, or $C is accessed. 


(5) On the bottom of the board, continue wiring the pull-up to 
jumper pads 9 and 19 and then to U3-pin 1. Make sure all 
other jumpers to pads 9 and 19 are removed. 


Now, pin 1 of U3 will go low for block $@, $4, $9, or $C; however, when 
block $4 or $C is accessed, pin 2 (A14) will be high. Therefore, pin 12 
of US will go high (enabling the RAM decoder Ul) only for blocks $@ and 
$9. Test to see that you do indeed have RAM at these two blocks and 
that you can write protect the three 1K groups at %94969-497FF, 
$9899-$9BFF, and $9C29-$9FFF. 


If everything works correctly, you are ready to add the RAM/ROM bank 
selector. 
{6) Remove the ground jumper between pads E£ and 3 on the 
SYM-1. 
(7) Wire up the IC as shown in the schematic. Don*t forget 
the power and ground connections. 


CNote —- Asterisks, "*", indicate barred signals. For example, pin 5 of 
the new IC must go to the clock signal that is brought out on pin Y of 
the expansion connector——-not pin U.J 


One method of adding this IC to the SYM-1 is to cement it to the board 
with its pins facing up and solder wires directly to the pins. 
Depending on how you use the bank selection to switch between the 32K 
RAM expansion and EPROM, you will need to bring one or both of the RAM* 
and ROM* Enable signals off the SYM-1 board to the expansion board(s). 
Both of these are active low signals. 


Some memory boards have bank switching capabilities built into them 
which makes the interface simple, but almost all boards provide jumper 
decoding in 4K blocks which allow the addition of an OR-gate to provide 
the required gating for each 4K block of RAM (see schematic). It is net 
necessary to switch the entire 32K of RAM--only those blocks which share 
the same address space with ROM or EPROM. Until you add bank switched 
EPROM, the only RAM block you will need to switch is block $8 ($8999 to 
$8FFF). Most EPROM expansion boards provide several jumpers to select 
the EPROM type and address decoding. For a 2716, pins 18 and 2@ are 
usually tied together to the address decode. In such a case, bank 
selection is easily performed by disconnecting pin 28 from pin 18 and 
tying it instead to the ROM% Enable signal. SYM-PHYSIS 11-4 


Theory of Operation 


The key to understanding how the bank selector works is in realizing 
that the only way a 65@2 instruction in ROM can have access to the 
entire address space is through one of the indirect addressing modes 
which reads page zero just before accessing the desired memory location. 
(BASIC also accesses memory through an absolute mode instruction which 
fortunately was copied to page zero RAM.) Remember that BASIC does not 
actually execute the "program" in RAM--that is really "data" for the 
interpreter program in ROM. The same is true for RAE and the Monitor: 
they all access the RAM indirectly, treating it as "data". The Monitor 
also needs to access itself, but it always does this through absolute 
mode instructions (again-——-fortunately!). 


Thus, all that is needed to switch between the RAM and ROM banks is a 
flip-flop which is set one way (to enable ROM) whenever an op-code fetch 
eccurs (SYNC goes high) and set the other way (to enable RAM) whenever 
any access to page zero is made. The circuit detects page zero whenever 
the pins 3, 4, and 5 of the new IC are all low. Pin 3 goes to Uli-pin 11 
which is labeled "19%" but is really "@@%" because of the changes made 
in steps 1 and 2. Actually, to make the hardware a little simpler, the 
circuit also detects page two, which is of little consequence as long as 
Page one is excluded. (This is important so that JSRs in the Monitor or 
EPROM will work.) There is one other way that the ROM bank can get 
enabled and that is with the software-controlled Power On Reset signal 
coming from the CA2 output on U2Z5 (pin 39). Without this signal it 
would be possible for the RAM bank to be enabled while the 65@2 RESET 
vector was being fetched causing the CPU to go to an unknown location 
and possibly modifying RAM. 


Special Considerations 


1. If you cold start to BASIC and let it figure out how much RAM you 
have, it will start writing $55 and then $AA to every memory address 
starting at $@2@@ and continuing until an address is reached which will 
not accept the $55 or $AA. If you have not write protected any RAM, 
then the memory test will continue up to address $AG@@@ which is port B 
of VIA #1. If you have installed a second cassette control on bit 7 of 
this port (as per RAE requirements), then that cassette will become 
activated when you enter BASIC, just like it does when you enter RAE. 
If you have any other devices on this port, make sure they will not be 
damaged by BASIC’s initialization. 

2. Sometimes you may want to examine the contents of the Monitor ROM, 
but if you try youll discover that what you are reading is the RAM-—-not 
the ROM. A simple way to disable the bank selector is to install a 
switch or jumper between pins 11 and 12 of the flip-flop. Opening this 
connection will force all indirect memory accesses to go to the ROM 
bank. If you need software control of this feature, you can instead tie 
pin 18 of the flip-flop to a different port bit output which your 
software can drive high to read the ROM. However, if you do this you 


will have to drive it low after every reset in order to enable the bank 
selector. 


3. If you put any machine code on page zero or two of memory, remember 
that all fetches or stores to bank memory will access the RAM bank. 


4. If you install EPROMs between addresses $1999 and %7FFF, they can 
only contain executable machine code and data that is accessed with 
absolute mode instructions. You cannot put the BASIC trig function 
expansion in this region since it contains data that is fetched 
indirectly by the BASIC interpreter. The best place to put an EPROM 
containing the BASIC trig functions is at $F@@@-$F7FF. 


3. Do not try to bank switch the BASIC ROMs. They contain several data 
tables that are fetched indirectly. SYM-PHYSIS 11-5 


6. You can bank select the two RAE ROMs, putting either RAM or EPROM in 
the "RAM" banks. However, as with all the other RAM banks, this memory 
can contain only data that is accessed indirectly. This would be an 
ideal place to put a disk buffer or video memory (for RAM), or character 
generator tables, or sound generation constants (for EPROM). You could 
also put some I/O in these regions as long as the programs that access 
them use indirect addressing. If you decide to implement any of these 
exotic expansions, you’re on your own! Just make sure you know what 
you’re doing. 


Conclusion 


Now you don’t have to feel jealous of those other guys with their super 
bank switcher computers-——you can have one too at a fraction of the cost. 
Furthermore, you can understand exactly how yours works. And it sure is 
nice to be able to sign on to BASIC and see it print, "48447 BYTES 
Litas at a 

RECOMMENDED SYM-1 MODS 

We “routinely” modify all of our personal SYMs, and those going into OEM 
systems, as follows (listed in priority order): 


1. To improve READ performance — replace Ci6 with a #.@1 ufd disc cap. 

2. To improve WRITE performance — replace R88 with a 1! K resistor. 

3. To improve "From TTY Keyboard" performance (on 24 mA current loop) — 
install a i K resistor from the base of @28 to ground. 

4. To recover the use of PB&6 of VIA No. 1 (for 8 bit D/A and A/D appli- 
cations) -— install a 1 Meg resistor from pin 3 of U26 to ground. 


The word "improve" is used in the sense of increasing reliability when 
interfacing with external equipments, i. e., cassette recorders and cur— 
rent loop terminals. 


TAPE TIP 

There are often times when it is desirable to determine the ending 
address (EAD) of a file being read in with .L2. EAD is required when 
using the .L2 FF,SAD,EAD option; also, in cases where most, but not all 
of a file is readable, it may be helpful to know how much of the file 
has actually been read in up to the abort point. Find out this way: 


After either a successful or an aborted .L2, enter the .M <cr> command 
and the address of the memory location whose contents are being dis- 
Played is EAD+1 or the address of the first non-read byte. Armed with 
this information, partial BAS-1 and RAE-1 files can be read in with .L2, 
"terminated" to match BAS—-1 or RAE-1 protocol, and the proper pointers 
then set to permit at least partial recovery of otherwise "lost" 
material. 


“DOUBLE—-DECKING" THE SYM 

The suggestions of "piggy—-backing" 21145 to get 8K of on-board RAM, and 
the two RAE-1/2 chips (also the two BAS-1 chips, when BAS-1 came only in 
the two chip version) to get two ROMs into one socket, were reported on 
in early issues of SYM-PHYSIS. We also reported on the existence of 
three unused inverters, and gave their locations (in U2, U9, and U398). 


We have added additional logic chips to several of our SYMs by glueing 
them, pins-up, to the board, and wiring them in as required. Joe Hob- 
art’s suggestion, in Issue No. 19, of piggy-backing a 74LS@4 (hex 
inverter) over the 7498 (and gate) at U24, to pick up the +5 V and GND, 
started us to thinking about the following: What other double-decking 
possibilities might be useful? 


Perhaps logic to provide full address decoding for the VIAs and the 6532 
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to allow more effective use of $AGG@G-GAFFF and $FE9G-$FFF9? Actually, 
only the top 6 bytes of SYSRAM at $A&67A-$A67F need be "echoed" at $FFFA-— 
$FFFF. Full address decoding would permit installation of a 2714 EPROM 
(less six bytes) at %FS99. 


Your first impulse might be to suppress the SYSRAM echo altogether and 
put your choice of NMI and IR@ into a 2716 EPROM at $F89@, or a 2732 at 
$F999. This is not toc good an idea, however, since one rather "widely-— 
used", "very well-known", (how’s that for “one-upsmanship"!) program— 
ming technique for subroutine calling involves "calling" subroutines 
with BRK (not JSR!), and returning with RTI (not RTS!). Both FODS and 
CODOS use this technique very effectively, and SUPERMON returns from 
subroutine USRENT with an RTI, just as it would from areal BRK. Since 
this approach requires changing IR@VEC, IR@VEC should itself be in RAM 
or at least point to RAM, where changes can be made. 


Other possibliities for chip piggy-backing include buffer/drivers, mul— 
tiplexers, flipflops, or almost any TTL chip, for that matter. If any 
of your I/0 subsystems require such chips, such as, for example, a 29 mA 
current loop to inverted TTL conversion, perhaps you could mount them 


We have long recommended Lance A. Leventhal’s "6562 Assembly Language 
Programming" as one of the two books which every serious SYMmer should 
have on hand (the other is Marvin De Jong’s "Programming & Interfacing 
the 6592, With Experiments”). For 6899 SYMmers we have recommended 
Leventhal’s "6899 Assembly Language Programming". 


We now recommend a third book for the 65@2ers: Lance A. Leventhal and 
Winthrop Saville’s "6542 Assembly Language Subroutines", OSBORNE /McGr aw— 
Hill, Berkeley, California, 1982. This nearly S5@ page book is a 
veritable encyclopedia of both general programming concepts for the 6592 
(with lots of carry-over to other systems) and specific subroutines, 
very thoroughly documented, for array manipulation, string processing, 
code conversion, bit manipuiation, 1/0, interrupt processing, etc. 


The highest praise that I can give this book is to say that even after 
more than four years of using the 6562 on a nearly daily basis, I will 
now check with Leventhal and Saville first, before starting any major 
programming effort, to find the "right way” to do it. The information 
on common programming errors, and how to avoid them, will save enough in 
"wasted" development time to pay for the book many times over; the 
subroutines are given in a form that is immediately usable. 


A BASIC VARIABLE CROSS REFERENCE LISTER 


June 19, 1981 


Dear Lux: 


Enclosed is a copy of a program which searches a BASIC text file and 
picks out all the new variable names. It has three distinct parts; the 
text search, a sorter, and a printing segment. 


The first part creates a file (starting at 45499) of S-byte elements, 
one for each new variable it encounters in the text. The first byte is 
for the type of variable, the next two are the variable name, and the 
last two are the line number where the variable occurs in the text. I 
have chosen the type values so that the sorting routine will put simple 
real variables first, string variables second, and on through to 
subscripted integer variables last. All characters in a variable name 
after the first two are ignored; if it is a one-character variable a 
Space is substituted for the second character. The line number bytes 
are copied directly from the text file. 
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New variable names can be introduced in BASIC only in certain ways; they 
may be the first word of a statement, or they can occur only after the 
reserved words DIM, FOR, INPUT, LET, READ, and DEF FN (and in some 
versions after GET). Therefore, in this program all other occurrences 
of variable names are ignored. 


The sorting segment is a (more or less) standard bubble sort which sorts 
the list in place. 


The printing segment has two counters which I have set for my system, 
but they should probably be changed for others. These are: (1) the 
maximum numbers of line numbers for a given variable printed for each 
line of output, and (2) the number of lines of output per page on the 
terminal screen. I have set these numbers at 8 and 15 respectively. 
The latter feature was included to allow time to study the list of 
variables before it disappears off the screen. Hitting any key causes 
the printout to continue. 


The program ends with a simple RTS which works fine if it is run with a 
-G 309% out of SYM MON 1.1. Care must be taken if the program is called 
in a way such that the return address is not stacked. 


The program could be modified for other 6592 systems by making the 
appropriate changes for the reserved-word tokens and adding steps to 
recognize other reserved words. Also the addresses of the BASIC 


routines and the MON 1.1 subroutines must be made correct for other 
systems. 


Best Regards, 


/s/ Jim Pengra 
21 February 1982 


Dear Jim: 


Finally getting around to going through the backlog of tapes and 
cassettes, after all these months. Tried the program, found one bug, 
and have several suggstions. 


The bug is that, while it works fine when called from MON, and does what 
it should when called from BASIC with X=USR(ORIGIN,@) it returns toa 
BASIC with a ?TM ERROR message. Didn’*t have time to track down the 
source of the bug, which is most likely traceable to "playing" with the 
pointers during the program and not restoring them prior to return. The 
?TM ERROR message can be suppressed, however, by the ad hoc trick of 
calling the program with a string variable name, e. g., X$=USR(ORIGIN, 
G). While the return to BASIC with an RTS is ckay, I have gotten used 
to returning from USR calls with JMP $D14C, sco I made that change in the 
program. 


The suggestions (some posed as questions) are as follows: 


(1) Rather than use space above the machine language program for 
temporary storage, why not use the space between the end of program 
space and top of memory? 


(2) Instead of the format you use, how about one where you do not use 
the headings to indicate and separate variable types, but instead 
indicate the variable types by following their names with %, , 4), Z“44), 
$()? (For arrays, the number of subscripts, and perhaps even the 


(3) The printing of eight line numbers per line is too many if four 
decimal digit line numbers are used, so I cut the maximum down to six. 
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(4) Since one of the reasons for a program like this is to Give the user 
information on possible variable name conflicts, thus permitting 


renaming if necessary, shouldn’t the listing include ALL occurrences of 
the name? 


Am now using the version of your program listed below where the output 
format comes closer to complying with suggestion (2) above. Studying 
how your program works will give readers a good insight into how BASIC 
itself works‘ 


SSS SEs 
OBB ; VARIABLE NAME FINDER 
9B2G 
BASB 5 by 
BB4G 
99S 3 JAMES G. PENGRA 
DBSB 
GA7D 5 Physics Department 
BABS 5 Whitman College 
BBD ; Walla Walla, Washington 
G1l9@ ; 99362 
G11G 
B12 
136 ;THIS PROGRAM SEARCHES A BASIC TEXT FILE FOR 
G14 ;VARIABLE NAMES, SORTS THE LIST BY TYPE (STRING, 
9156 ;INTEGER, ETC.) AND ALPHABETICALLY, AND THEN PRINTS 
@16@ ;THE NAMES AND THEIR LINE NUMBERS. IT ALSO FINDS 
9179 ;SOME ERRORS. 
GiBea 
Bi9G 
9268 ; VARIGUS SYM MON 1.1 SUBROUTINES 
B21 
9228 CRLF -DE $834D 
9232 SPC2 -DE $833F 
2249 OUTCHR -~DE $8A47 
9258 INTCHR -DE $8A58 
B26 TECHO -DE $A6é53 
9278 ACCESS -DE $8B86 
28D 
9290 ; SYM BASIC ROUTINES AND ADDRESSES 
B3BB 
9319 FACTO -DE $B2 
@328 FLOATC »~DE $D9FF 
933B FOUT -DE $DB9A 
934 CHRGET -DE $CC 
9359 CHRGOT -DE $D2 
G362 SEARCH -DE $CCSD 
@37@ TEXT.PTR .DE $C49F 
938@ ALPHA -DE $CEE9 
9399 USRRET -DE $D14C 
G49H TXTPTR -DE $D3 
9418 DISSTK -DE $66 
9420 ADPTR1 -=DE $72 
BA3D 
9449 ; OTHER COUNTERS AND VECTOR LOCATIONS 
G450 
9466 COUNT -DE $&8 
BA7D PB -DE $EA 
9489 Pi -DE $EE 
9492 BASE -DE $EC 
@59@ RUFF -DE $61 
AS1D 
3529 ORIGIN -DE $3999 
9538 HOLD -DE ORIGIN+$9499 
8548 
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c4 
31 


9D 


BO 


9D 


2O 


BO 


START 


LINLINK 


; 
CONT 


DINC 


5 
FIN 


ORIGIN 
$7BDD 


TEXT.PTR 
SET.PTRS 
#B2 
(TXTPTR),Y 


({TXTPTR),Y 
xBUFF+S 


(TXTPTR),Y 
*BUFF+4 
*TXTPTR 
DINC 
aTXTPTR+1 


INCR 
CHRGET 
#989 
NAME 
#$81 
ONE 
#984 
BEE 
#985 
ONE 
#S86 
ONE 
#SAT 


CHRGET 
#73 

ONE 

#OD 
LINLINK 
#7" 

DEE 
QUOTES 
CMP3A 


CHRGOT 


CHRGET 
#7) 
FIN 


;SET POINTER FOR CHRGET/GOT 
;SET OTHER PTRS 
;CHECK LINE LINK HI, 


;IF ZERO, THEN 
3;END OF SEARCH 

;STORE LINE NUMB 
3 IN BUFFER 


3MOVE CHRGET/GOT 
3;POINTER THRU 

;LINKAGE AND LINE 
;NUMBER BYTES 


3;GET NEXT CHAR 

31F < $88 IT’S A NAME 

; OTHERWISE, CHECK FOR TOKENS WHICH 
37 FOR’ PRECEDE NEW VARIABLES 


7 INPUT?’ 


we 


3° DIM’ 
3’ READ’ 
rl © = pas 
; DEF” 


3CHECK FOR REST OF ’ DEF FN’ 
3° FN? 


;CONTINUE UNTIL FIND 
3;END OF STATEMENT 


30R END OF LINE 


;QUOTES MAY CONTAIN COLONS 


; ALWAYS 

;FIND QUT HOW VAR NAME ENDED 

3WAS IT END OF LINE OR STATEMENT? 
;WAS IT AN *="? 

;MORE VARS IN THIS STATEMENT? 

;IF SUBSCR*P*D THEN FIND END OF IT 
3 IF NONE OF THESE, THEN ERROR 


;FIND END OF SUBSCR’P’D VAR 
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BS 
36 


bf a) 


38 


cc 


32 


32 


CE 


BB 


1299 
1219 
1229 
1239 
1249 
1259 
1268 
1279 
1289 
1298 
1390 
1319 
13298 
1338 
1349 
135¢ 
1368 
1379 
1389 
1399 
1499 
1419 
1429 
1438 
1449 
1456 
1466 
1472 
1489 
1499 
1599 
1516 
1529 
153@ 
15498 
1559 
1568 
157@ 
158@ 
1599 
1699 
1619 
162@ 
1639 
1649 
1659 
1669 
1679 
1689 
1699 
1722 
1719 
1728 
1738 
1749 
1758 
1769 
1778 
1789 
1799 
1899 
1819 
1829 
1839 
1849 


5 
BEE 


5 
QUOTES 


3 
ERR 


5 
NAME 


STBUFF 


GET 


CHEX 


3 
STRING 
OR 


: 
INTEGER 


3 
STORE 
LOADS 


CHRGET 
THREE 


CHRGET 
He" 
NAME 
QUOTES 
BEE 


SEARCH 
CHRGOT 
#E69 
aDISSTK 


#MS-MD 
MESSAGE 
#SO6S 
*BASE 
*xBASE+1 
PR.LINUM 
USRRET 


BUFF +1, X 


CHRGET 
STORE 


INTEGER 
ek 

ERR 

#D1 
*BUFF 
*BUFF 
STORE 


#G1B 
BUFF 
*BUFF 
GET 


#$89 
OR 


#94 
(P1),Y 
(BASE) .Y 


3AND SEE WHAT’S NEXT 


3;ANY MESSAGE IN “INPUT? STATEMENT? 
3;IF NOT, GET VAR NAME 
31F SO FIND END 
;ALWAYS, TO SKIP *;” AFTER STRING 
3;MOVE THRU STRING AND GET 

3;CHAR AFTER CLOSING QUOTE 

;RESET DESCRIPTOR 

;STACK PTR 


3SEND ERROR MESSAGE 


;SET BASE PTR TO LINE NUMB 
;POSITION IN BUFFER - 1 
3 Y=o 


3 TERM PROGRAM 


;ASSUME REAL, NONSUBSCRIPTED VAR 
31ST POS IN BUFF IS FOR * TYPE’ 


3CLEAR 2ND CHAR IN NAME BUFF 
31S FIRST CHAR A LETTER? 
3;ERROR IF NOT 

31F SO STORE IT 


3;GET NEXT CHAR 
3Z=1 IF CHAR IS 9 OR 
3’=" TOKEN MEANS END OF VAR 


ae 
: 


3 IF CHAR >= 79° THEN 
;SEE IF NAME IS > 2 CHARS LONG 
3A COMMA? 

3; THEN STORE 

3IF ANYTHING ELSE, CHECK VAR TYPE 
;IF X<2, STORE CHAR IN BUFF 

3;ELSE CONT 

3A STRING VAR? 


; INTEGER VAR? 

; SUBSCRIPTED? 

3;IF NOT, THEN THERE’S AN ERROR 
;SET @-BIT FOR 

;SUBSCRIPTED VAR 

; ALWAYS 


;SET 4-BIT FOR 
3;STRING VARS 


3 ALWAYS 


;SET 7-BIT FOR INTEGER VAR 
; ALWAYS 


;STORE S BYTES FROM BUFF 


3 IN VAR ARRAY 
SYM-PHYSIS 11-11 


3o 
3a 


Si 


Di 


Si 


3 
INBASS 


OUTS 


3 
SET.PTRS 


STORBUFF 
LOADT 


PTRS 


3 INCR BASE PTR BY 5 


*BASE+1 


#H, HOLD 
aPG+1 
*ADPTR1I+1 
*BASE+1 
#L, BUFF 
aP1 

#95 
*ADPTR1 
#99 


3SET POINTERS —- ALL NOT USED 
3 IN EVERY SECTION OF PROGRAM 


3;USE P1 TO 
3POINT TO SORT BUFFER 


aPO 
aPi+1 
*BASE 


* BUBBLE SORT &% & & 


;ZERO Y 

(BASE),Y  3END LIST WITH @ TO STOP SORT 
SET.PTRS ;RESET POINTERS 

#19 

«BASE 3;BASE NOW USED AS UPPER SORT PTR 
(PB) ,Y 3;CHECK 1ST BYTE OF VAR ARRAY 
NEXT2 

USRRET 3;NO VARS FOUND, END PROG 

#99 

(ADPTR1),Y 

SAVEBUF j;IF NO MORE VARS THEN 

PRINT 3GO0 TO PRINTOUT 

#94 

(ADPTR1),Y 3PUT HIGHER VAR IN 
(P1),Y ; BUFFER 

LOADB 

#90 

(P1),Y 3; THEN COMPARE IT TO LOWER ONE 
(P@),Y 

EXCH 3EXCHANGE IF (P@) > (ADPTR1) 
STORBUFF ;IF CHARS EQUAL, 

#93 

CPCHAR 3;KEEP CHECKING, OTHERWISE 

#94 3PUT 

(P1),Y 3;CONTENTS OF BUFFER 
(ADPTR1),Y 3 IN ADPTR1 SPACE 
LOADT 

*BASE+1 ;ADVANCE PTRS BY 5 

aPG+1 
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56 


EB 


Bi 
3d 
31 


31 
Sti 


Si 


32 


32 


83 


32 


STA *ADPTRI+1 
LDA *BASE 
STA *ADPTRI 
STA *Po 
JSR DEP@S 
JSR INBASS 
UMP NEXT2 3;AND SHUFFLE AGAIN 
3 
EXCH LDY #94 ;MOVE P@ VAR UP ONE SPACE 
LOADE LDA (P@),Y 
STA (ADPTR1).Y 
DEY 
BPL LOADE 
P@>ADPTR1 LDA *Po 3AND THEN DECR PTRS 
STA *ADPTR1 
LDA #Pg+1 
STA *ADPTRi+1 
JSR DEPSS 
JMP ZEROY 
, 
DEP95 SEC ;DECR P® PTR BUT, 
LDA #P@ 3;NOT BELOW 
SBC #95 ;HOLD 
STA *P@ 
BCS QUTD 
LDA *#P9+1 
SBC #99 
CMP #H,HOLD 
BCS STORIT 
PLA 3PULL RETURN OFF STACK, 
PLA 3; THERE’S NO MORE, 
JMP STORBUFF ;SOQ STORE BUFFER 
STORIT STA *Pg9+1 
OQUTD RTS 
3 
; * & & PRINTOUT ROUTINE & * & 
PRINT JSR SET.PTRS j;RESET POINTERS 
LDY #92 ;CLEAR BUFFER, USED FOR COMPARISON 
ST STA (P1),Y 3;0F VAR NAMES 
DEY 
BPL ST 
LDA #15 
STA *Pg 3P@ NOW USED AS I/O LINE COUNTER 
LDX #14 ;SEND 28 SPACES 
JSR CRLF.SPS 
INY 3;WAS $FF, WANT @ 
JSR MESSAGE ;PRINT HEADINGS 
NEXTVAR LDY #@ 
LDA (BASE),Y ;GET VAR TYPE 
BE@ OUTD 3@ MEANS END OF LIST & PROGRAM 
CMP *BUFF 3SAME AS LAST TIME? — NO NEED 
BEQ VAR 3TO INDEX HERE 
STA «BUFF 3;1IF NOT, ESTABLISH NEW TYPE 
JSR CRLF 
JSR CRLF 
LDA #9@ 
STA *BUFF+1 ;A=@, IF NEW TYPE THEN NEW NAME 
LDA *BUFF ;GET TYPE AGAIN 
BPL ANDIT 3; INTEGER TYPES HAVE NEG TYPE # 
LDY #M3-—Mga ;SEND °% 
JMESS JSR MESSAGE 
SUBSC LDA *BUFF 3;GET TYPE AGAIN 


SYM-PHYSIS 11-13 


83 


8A 


PUT 


JOCHR 


RES.CNT 


NORM 


5 
PR.LINUM 


#E1G 
STR 
#M1—-MO 
JMESS 


#M2-MD 
JMESS 


CRLF 
(BASE), Y 


(P1),Y 
PUT 


;SUBSCRIPTED TYPES HAVE @-BIT SET 
3SEND 7¢ )? 
;ALWAYS 

;CHECK FOR STRING TYPE 


3SEND * 7 
3 ALWAYS 


3;SEND *$°* 
s ALWAYS 


;COMPARE VAR NAME TO LAST ONE 
31F IT’S NOT THE SAME 
3; START NEW LINE 


3SAVE 1ST CHAR TEMP 


(BASE), Y 
(P1),Y 
NUMB 


;COMPARE 2ND CHAR 


31F EQUAL, JUST PRINT LINE NUMB 


3;GET 1ST CHAR BACK 


3; GET 
OUTCHR 


(BASE) ,Y 
(P1),Y 
JOUT 

ne 
OUTCHR 
RES. CNT 


;UPDATE BUFF 1ST POS 
;NEW LINE 
3;P@ IS LINE COUNTER 


;SAVE ACC TEMP 
315 LINES/PAGE 


3;NO ECHO 
;WAIT FOR KEY 
;REENABLE ECHO 


1ST CHAR BACK 


3PRINT 1ST CHAR 


3GET 2ND CHAR AGAIN 
;UPDATE BUFF 2ND POS 


3;SUBST A SPACE IF NAME 1 CHAR LONG 


3; ALWAYS 


31ST CHAR OFF STACK 


aCOUNT 
NORM 
#DOD 
CRLF.SPS 
#95 
*xCOUNT 
SPC2 
SPC2 
SPC2 
PR.LINUM 
INBASS 
NEXTVAR 


;NEW LINE — PUT IN SPACES 


3MAX SIX LINE NUMS PER LINE 
;RESET COUNT OF LINE NUMB’S 


;PRINT LINE NUMB 
3; INCR PTR FOR NEXT VAR 


;SUBR TO CALC & PRINT LINE NUMB 


(BASE) ,Y 
*FACTO-1 
*FACTO+1 


;PUT LINE NUM 
; IN FACTO REGISTER 
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3259- 
325A- 
325C- 
325E- 
3269-— 
3261- 
3264- 
3267- 
3269- 
326C— 
S26E-— 
Rr Ae 


3272- 
3274- 


3275- 
3278- 
3278B- 
327C- 
327E- 


Bf cia 
3282- 
3284- 
3285- 


3286- 
3289- 
328A- 


328C— 
328F- 
3292- 
3295- 
3298- 
329B- 
pbs | Sone 
S29F— 
32A2- 
32A5— 
32A8- 
S32ZAB— 
S2AE-— 
32B1-— 
32B4— 
32B5-— 
32B8— 
32B9- 
S2BC— 
32BD-— 
32C9-— 
32C3- 
32C4- 
32C7- 
32CA-— 
S2CD-— 
S2D9— 
32D3-— 


@1 


8A 


83 
83 


32 


8A 


4139 


4149 
4150 
4169 
4178 
4189 
4193 


4289 


4219 
4229 


LOADC 


5 
DPR 


3 
CRLF.SPS 
SPACES 


3 
MESSAGE 


3 
JPRINT 


re 
Ss 


Mi 
M2 


MS 


M4 


MS 


«BY 


- BY 
- BY 
-BY 
-BY 
-BY 
«BY 


-BY 


~EN 


(BASE), Y 

xFACTO 

#E9D 

FLOATC 3FLOAT IT 

FOUT s;AND CONVERT TO ASCII IN $199 

#BB 

$191,X 3;GET LINE NUMB 

DPR 3@ MEANS END OF LINE NUMB 

OUTCHR 

LOADC s ALWAYS 

CRLF 3SEND CRLF & 2*X SPACES 

SPC2 

SPACES 

Mo, Y 3GET MESSAGE CHAR 

JPRINT ;MESSAGES END WITH @ 
;RETURNS WITH Z=1 & Y= 

OQUTCHR 

MESSAGE 3; ALWAYS 


19 19 “VARIABLES USED’ 13 16 16 


7NAME* * LINE NUMBER(S)’ @@ 


$20 $29 $OO 
$29 

7 $* $OD 
$20 

" %" $96 

7{ 2”? $68 


$9D $A “ERROR IN LINE * $69 
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A CORRECTION ON BAS-1 AND INTEGER VARIABLES 


In Issue No. 19 we stated that the BASIC (BAS-1) Reference Manual made 
no mention of integer variables. We stand corrected. The top paragraph 
on page 9 contains the sentence "If the (variable) name ends in "Z", 
then the variable is an integer variable. and may contain only integer 
values.” 


Oh, well, our error is not quite as bad as that made by a writer in one 
of the popular 652 journals who stated that SYM’s BAS-1 did not support 
integer variables at all. Apparently he never tried to use the "%" to 
see what would happen. 

RFI (TVI) FROM THE KTM? 

One of our callers asked us what measures we had taken to reduce TV in-— 
terference from our KTM-2. He stated that his KTM-2 created inter- 
ference on every TV in his apartment building. We told him that we had 
no experience with TVI, and after he hung up, we realized we had for- 
gotten to ask whether he was using an RF modulator on his KTM-2. 


We are in an area served only by one off-the-air TV station, on Channel 
12, whose antenna is within 1@ miles. No UHF within 96 miles, and only 
marginal reception from two distant VHF stations on Channels 7 and 9. 
Our “entertainment” video comes in by 14 channel cable (two channeld are 
“scrambled"), and we have two VCRs (Beta and VHS) for taping computer 
system demonstrations and lectures, plus at least four TVs and monitors 
within 25 feet of three nearly-always working SYM/KTM systems, and have 
seen absolutely no signs of TVI. 


Our understanding is that TVI may be most troublesome on Channel 2, 
which we receive via shielded cable, with no interference. Are there 
any SYMmers cut there bothered with TVI, and if so, what can be done toa 
minimize the problems? 


COMPUTER VIDEO 

We used to carry a compact SYM-1 system along with us for demonstration 
purposes, and often still do, not so much now to demonstrate it, but for 
working purposes. We decided to give up the idea of trying to demon- 
strate the tremendous versatility of the SYM-1 (nee the VIM —- Versatile 
Interface Module) by actual "live" demonstrations. This is because we 
have a number of SYM-1 systems dedicated to special applications, in- 
cluding speech synthesis, music generation, high resolution black & 
white graphics, color graphics, semi-automated production of 
distribution cassettes and disks, word processing, program development, 
hardware development and checkout, 68@9 experimentation, etc., and it is 
really not practical to transport all of these for shaow-and-tell 
sessions. 


We now feel that it is far simpler to bring along videotaped demoan- 
strations, instead. Most schools and governmental agencies, and many 
industrial facilities have, or have access to, 3/4 inch U-Matic Format 
VCRs. Qur university video crew prepared a 28 minute tape on the SYM-1, 
and a Honeywell video crew videotaped a 28 minute lecture entitled "How 
to Select a Personal Computer" for us. These tapes are so helpful that 
we decided it would be nice to be able te do cur own, but on the 1/72 
inch Beta and VHS VCR formats (much less expensive!). We can then dub 
to a borrowed U-Matic (the computer science department has one) recorder 
for school use. Here are some thoughts on the subject: 


The RCA VP33@1 Video Terminal ‘(which we reviewed several issues ago, and 
for which we are dealers) turns out to be just the item for the 
generation of both still and animated titles, and areas of uniform color 
for headers and trailers, and to separate segments. The VP33@1 has both 
RS-232C ‘EIA) (with inverted TTL compatibility) and 2@ mA current loop 
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We use our VP on the 2@ mA interface and call it with a version of our 
decwriter II printer patch, modified for two reasons: first the VP does 
not accept 699 baud (which was added to our decwriter), and second, the 
VP requires "handshaking” at its higher baud rates. On the CL interface 
the rates are 119, 396, and 129@ baud. On the EIA interface the rates 
are 11%, 38@, 1298, 49898, 9698, and 19,2@@ baud! Of course the SYM-1 
software stops at 48@@, but as we get going, and convert one SYM’s CL 
interface into a second EIA interface, we’1ll also look into modifying 
the software to the 19,29@ rate. What beautiful animation that could 
permit! As of now we’re working at the 11@ rate, so that the titles are 
generated character by character, as if being hand typed. 


We lent Jack Gieryic, who has a VHS VCR system, a VP33@1 to "play" with, 
in exchange for the use of any software he developed for it. The VP 
also has excellent music capabilities. The video output is available at 
an RCA phono jack, and the audio output at a built-in speaker. Two 
additional VPSXXX series terminals are available. The VP33@3 provides 
both video and audio modulation on an RF carrier (channel 3 or 4 
selectable), and the VP35@1 also has a built-in direct-—connect modem, so 
that any facility with a telephone and a "telly" can become a computer 
terminal lacation. Even if you are not into Video Recording, you might 
want ta consider the VP3XXX series terminals purely as a color graphics 
output device for the SYM-1, or as a "Spare" terminal. 


We tried feeding the KTM-2/89 video directly into a VCR, rather than 
using a video camera to copy the screen, and ran into two problems: 


(1) The same reason that makes the use of an RF converter impractical 
also operates here. The 8@ column format requires around 7.2 MHz 
bandwidth. We will try again with a KTM-2 (the 4@ column terminal), 
Since this requires only around 3.6 MHz. Meanwhile, we’ll zoom in 
with a camera to portions of the KTM-2/88 monitor screen to make the 
characters easily readable on a color TV. 


(2) Monochromatic signals at frequencies near 3.59 MHz confuse color TV 
sets into thinking color signals are being received (this is how the 
Apple II generates its color graphics): spurious colors are then 
displayed (no prabiem on B/W sets!). 


Jack Gieryic showed us some video recordings of his MTU Visible Memory 
graphics, with pretty, but difficult to predict, color fringing. The 
colors do enhance the graphics, but the fringes make text rather 
unreadable. The best solution here seems to be to avoid videotaping 
high resolution black and white graphics for later presentation on a 
color monitor (unless you have an Apple II!). Of course, if your 
computer outputs NTSC color signals there is no problem. When we 
reinstall our ColorMate Board we’1l try videotaping its output. It has 
been temporarily removed from service because it and the FDC-1 Floppy 
Disk Controller cannot co-reside at the $99@@ block. The ColorMate (and 
the FDC-1) will both be moved to an 8K system and the ColorMate will be 
restrapped to $7@@@ for testing. 


ANOTHER APPLE READER/WRITER? 

Dave Kemp sent us many months ago a very compact Apple II Cassette 
Read/Write program. We didn’t publish it until now because we hadn’t 
tested it as yet. This was because he sent us only a source code 
listing (not in RAE format, because he does all of his software 


development on aéi larger system, then downloads the object code to the 
SYM). 


Our typing is slow, so we now type in only the object code, turn 
Dessaintes*® Disassembler loase on that, and then replace the “meaning— 
less" labels with mnemonics from the printed listing. This gives us 
time to study the code as we replace the labels, as well as saving us 
typing time. We then insert comments only for the really obscure 
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To save on space, the version printed here is uncommented, and the label 
size was reduced to five characters with FO S 5 (the default is 18) so 
that we could get two columns to the page. Incidentally, if you have 
only a 4@ column terminal, you will get nicer screen listings if you do 
the same, and also put all comments on separate lines. For your 
information the more pertinent commented lines are given below in a 
separate listing. 


We publish this now mainly in the hope that owners of PETs, OSIs, 
Ataris, etc., will be inspired to write equivalent programs for their 
own systems so that "pure" ASCII text files, such as, for example, those 
generated by TECO, can be freely transportable. 


Some of you might also want to compare the relative merits and speeds of 
the two cassette subsystems, and might perhaps even prefer to use the 
Apple format! 


Notice also Dave’s use of a D/A converter on the A Port to display the 
measured times during readback (the lines involving D2A and D2AD may be 
omitted if you do not need them). Since we have D/A converters aon both 
the A and 8B Ports (for our stereo music system), we enjoyed watching 
both the signal itself and the measured time display on a dual trace 
scope. 


COMMENT LINES (EXTRACTED FROM A MORE DETAILED VERSION WITH THE USE OF 


RAE?S ">FI “ COMMAND) FOLLOW. THE UNCOMMENTED SOURCE CODE LISTING (CUT 
AND PASTED TG FIT A SINGLE PAGE!) APPEARS ON PAGE 19. 

9316 APPLE CPX #$92 !TWO PARAMS 989B EOR #$FF !COMPLEMENT 
B34G CMP #$14 'L3 HASH CODE BIAD LDY #$FF !RESTART 

G36G CMP #$1F 'S3 HASH CODE BI6G CMP #5CE !?77 

B39B LDA #%$@7 !CONFIGURE 1g19 AND #$4@ !BIT SIX 

G41G LDA #$2@ ‘FIVE SEC HDR 198 HEADR LDY #$AF !659 USEC 

B430 WRI LDX #$4@ !'ZERO INDEX 1118 ADC #$FE !?77 

9519 WRBYT LDX #$19 'WRITE BYTE 113@ WRBIT LDY #$E1 !(F@) 25@ USEC 
9598 READI LDX #$FF ! INITIALIZE 1158 LDY #$C2 !(E1) 5@@ USEC 
9819 RBYT LDX #%$98 'READ BYTE 1189 LDA #$FF !--— 

2849 CMP #$A8 ! (DC) 1239 EOR #%98 !--—— 


SYM=PLE: COPY 

SYM-ple Copy is a very useful utility program for making duplicates of 
SYM Format tapes. It provides the user with multiple options for 
duplicating anything from single programs to entire cassettes, with 
minimal effort. SYM-ple Copy is completely relocatable, so that it can 
be entered far away from any programs read in. 


It is necessary to have two cassette recorders, one for reading programs 
from the master tape, the other for recording to the copy tape. Each 
must have a remote jack, or the equivalent, so that both can be under 
computer control. In order to control them automatically, an inex- 
pensive external circuit must be implemented, as shown in Figure i. 
This circuit is essentially the same as the on-board cassette control 
circuitry, with the exception of resistors Ri and R2. 


SYM-ple Copy is actually two programs in one. After the user starts the 
program a question mark appears on the display. This asks the user if 
he wishes to use Option A or Option B. 


Option A allows the user to start the program and leave while all 
programs on the master tape are duplicated to the copy tape. In answer 
to the "?" the user enters "F" for the "fast and easy" way of copying 
tapes. Immediately the tape player begins reading the first program 
from the master tape; it then stops and the recorder writes that program 
to the copy tape. These steps are repeated until all programs have been 
copied. 
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: 

3 

3 

H BY 

3TO ENABLE: 

3TO WRITE 

3TO READ 

OLD . DE 

CKSUM .DE 

BUFAD .DE 

INCPS .DE 

INCMP .DE 

START .DE 

TAPIN .DE 

D2A -DE 

D2AD - DE 

TAPOU .DE 

TIMER .DE 

TIMs - DE 

STRT DE 
-BA 
.OSs 

E@ G2 

D@ 61 

29 93 82 

Cc? 14 

FR 2B 

C9 iF 

De 36 

228 AF 8D 

AI G7 

8D 2 A4 

ADI 26 

22 97 G2 

A2 a 

41 FE 

43 

AL FE 

28 722 G2 

29 B2 82 

68 

9@ FO 

AZ 1B 

BA 

2@ AZ G2 

Da FA 

18 

6@ 

28 A? 8D 

AZ FF 

86 FA 

BE 23 AD 

28 7A G2 

BS F4 

CA 


D. KEMP 


-SD STRT,A66D 
-S3 STAD, ENAD 
«LS STAD,ENAD 


APPLE 


WRITE 


WR1 


WRBYT 
WRBY1 


WRBY2 


READ 
READI 


READ2 


APPLE CASSETTE READ/WRITE 
MONITOR EXTENSIONS FOR SYM 
ADAPTED FROM APPLE MONITOR ROM 


SEPT 79 


(BUFAD, X) 


(BUFAD, X) 
WRBYT 
INCMP 


WR1 
#S1B 
a 
WRBIT 
WRBY1 


START 
#SFF 
*xCKSUM 
D2AD 
RBIT1 
READ 


ae 
A8 


82 


G2 


G2 


G2 
G2 


a4 


AS 


AD 


AS 


G2 


B2 


9659 
B56H 
GS7B 
9689S 
B59B 
DB7BDB 
G719 
B72H 
B73B 
B74B 
B759 
B76S 
977G 
9782 
B79B 
GBSO 
BBigG 
9825 
983B 
GB4B 
985B 
B60 
G87B 
9889 
BBIG 
BIBS 
BILD 
GI2G 
DISD 
BIA 
DISD 
BI6D 
B97B 
DIBA 
B99B 
1999 
1919 
1928 
1939 
1949 
195G 
19869 
1978 
1989 
1996 
1198 
1119 
1129 
1139 
1146 
115¢ 
116 
1179 
1188 
1199 
1299 
1219 
1226 
1239 
1249 
1259 
1268 
1272 
1289 
1299 


READS 


READ4S 


ERR 


RBYT 
RBYT1 


RBIT 
RBIT1 


GETTR 


HEADR 


WRBIT 


WRBI1 
WRBI2 


WRBIS 


«EN 


READ2 
RBIT1 
READS 
RBIT1 
RBYT 
(BUFAD, X) 
*CKSUM 
=CKSUM 
INCMP 
READ4S 
RBYT 
xCKSUM 
WRBY2 
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SYM-PLE COPY (continued from page 11-18) 


Option B allows the user full control over which programs are to be 
copied. In answer to the initial "?" the user may hit any key except 
"F", for example, "D", for do-it-yourself! When the key is hit the 
Player reads in the first program and stops, and the ID and the starting 
address of the program are displayed. The user may enter "9" to bypass 
copying, if he so desires. Otherwise, if he wishes a copy tao be made, 
he may enter either a "1" followed by two hex digits which will become 
the new ID, or any other character, in which case the ID will remain the 
same as on the source cassette. The process is repeated for each file 
on the master tape. 


Only the first six locations in page zero are used. These are for EAL, 
EAH, SAL, SAH, ID, and a scratch byte, respectively. A "safe" origin 
for SYM-ple Copy in smaller systems would be at $9496, since it is good 
Programming practice for 65@2 systems to origin most programs at #9269 
and above, and for SYM programs to do their own initialization of page 
zero (and page one), if required. This is because SYM will “hang-up” 
when reading data from cassettes which cross the page zero/page one 
boundary, and reading cassette data across the page one/page two 
boundary will clobber the stack and any returns you may have saved 
there! 


SYM-PLE COPY — BY: P. GLENN NORMAN, 846 WAVECREST, HOUSTON, TX 77962 


CEDITOR’S NOTE: This program will work with BAS-1 files (which all start 
at $9261, incidentally) but Option B will not be usable with RAE-1 
files. This is because RAE-1 files are dumped with an initial header in 
which the File Number is imbedded, and all headers and files are dumped 
to tape with ID = @@. RAE-1 is designed to work with a dual cassette 
system such as Mr. Norman suggests, and so is most of Jack Brown’s 
software, but with the write casseette remote driven by CB2 and the read 
cassette remote driven by PB7 of VIA #1, rather than by PBi and PB® as 
Figure 1 shows.3] 


SAME CIRCUIT AS ABOVE 


NOTE: PBO controls the tape player 
» PB1 controls the tape recorder 
Refer to the SYM-1 Reference Manual for a particular recorder's hookup, 
If outputs C & D are used, A must be tied to +5V. 


Figure 1 
AUDIO CASSETTE REMOTE CONTROL 
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0300 
0303 
0305 
0308 
030A 
030D 
0310 
0312 
0315 
0317 
0319 
031C 
O31E 
0321 
0323 
0326 
0329 
032C 
032E 
0330 
0332 
0334 
0336 
0338 
O33A 
033D 
0340 
0342 
0345 
0347 
0349 
034C 
O34E 
0350 
0353 
0356 
0358 
O35B 
Q35E 
0360 
0363 
0365 
0367 
0369 
036C 
036E 
0371 
0373 
0376 
0378 
037B 
037D 
O37F 
0381 
0384 
0386 
0388 
038A 
038C 
O38F 
0391 
0393 
0395 


8B 
89 


A4 
89 


88 


AO 
AO 
8D 


8D 
8D 


8D 
A4 


8E 


8E 


8E 
A6 


8E 
A6 


8C 


82 


82 
82 


AO 
88 


81 


A6 


SYM-PLE COPY 


HERE: 


BEGIN: 


SEARCH: 
DATA: 


LOAD: 


BACK: 
OK: 


KEEP: 
TABLE: 


JSR 
LDA 


ACCESS 
#$09 
CONFIG 
#353 
DIG 
KEYQ 
HERE 
GETKEY 
$0005 
#%03 
$A002 
#$01 
$A000 
#$80 
START 
SYNC 
RDCHTX 
nen 
LOAD 
"sync" 
SEARCH 
DATA 
#$80 
MODE 
RDBYTH 
DIG 
$04 
RDCHK 
BUFADL 
$02 
RDCHK 
BUFADH 


Unwrite System RAM 
Set up ability 
to use display 
Load "?" in accumulator 
Put "?" on display 
Is key down on keypad? 
If no, keep "?" displayed 
If yes, get that key 
and store it in $0005 
Configure PEO & PB1 
as outputs 
Tape player, on 
Tape recorder, off 
Set up mode for SYM format 
Initialize 
Get in sync 
Read first character 
Start of data? 
If so, get data 
If no, sync character? 
If not, start sync search 
If yes, keep looking for "*" 
Reset to SYM mode 
for tape format 
Read ID off tape 
Display on LED (not decoded) 
Store ID in user buffer 
Get SAL from tape 
Put in monitor buffer 
Also store in user buffer 
Get SAH from tape 
Put in monitor buffer 
Also store in user buffer 
Get EAL from tape 
Save in monitor buffer 
Also store in user buffer 
Get EAH from tape 
Save in monitor buffer 
A1so store in user buffer 
Ok, read data off tape 
Data read in ok? 
No - start over 
Pick up SAH from buffer 
Display on LEDs 
Pick up SAL from buffer 
Display on LEDs 
Pick up ID from buffer 
Display on LEDs 
Pick up operation type 
See if user had hit "F" 
Yes - no need to wait 
Tape recorder, off 
Tape player, off 
Wait for user to hit key 
Is choice = "0"? 
Yes = then start all over 
Is choice = "1"? 
No - keep record as is 
If "1", get ID from user 
and store in buffer 
Load pointer with minus 5 
Pick up all data from buffer 
Store data in monitor area 
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0398 =«=E8 INX Increment pointer 

0399 DO F8 BNE TABLE Keep loading if not finished 
039B AQ 02 LDA #$02 Tape player, off 

039D 8D OO AO STA $A000 Tape recorder, on 

03A0 AO 80 LDY #$80 Load Y with SYM format 

O3A2 20 87 8E JSR DUMPT Save data on tape 

O3A5 38 SEC Ok, start 

O3A6 BO BD BCS BACK all over again 
“PRETTY-PRINTING” IN RAE 

Here is a small section of a program sent to us by John Blalock. He has 
solved the problem of making the comments following one byte in- 


structions line up with the comments following multi-byte instructions 
in avery "pretty" way. 

9GG1 PTR -DE @ 

9282 COUNT -DE @ 

BBAS 
G2G9- 26 11 @2 2548 GETCH JSR SAVER 3Save all registers on stack 
B2G3- BB 2558 PHP : 3save flag register separately 
G2G4A— AD BD 2568 LDY #2 ;clear Y register 
G2G6- AS BH 2576 LDA *COUNT j;was COUNT = zero ? 
9288- De G7 2589 BNE ONE? 3no, then branch 
B822A- CB 2598 INY = 3it was zero, add 1 to Y 
92GB- Bi OG 2689 LDA (PTR),Y :get MSD of line number 
92BD- ES aH 2658 INC *COUNT snow COUNT = one 
G29F- DG BB 2669 BNE NDONE 3branch always 

99@1 ONE? 

99G2 SAVER 

9923 NDONE 


A VERY USEFUL "SIGNAL GENERATOR" 

Occasionally SYMmers may have troubles with their SYMs failing to 
operate when new RAM or ROM is added. This is often due to some added 
memory being “stuck" in the selected position so that its data is always 
dumping to the data lines, due to faulty decoders, or whatever. If you 
have a scope, or even just an inexpensive logic probe, all you need is a 
simple device to get your SYM to cycle through all 64K addresses, so 
that you can observe the responses throughout the system. 


Volume 1, Issue 3, Page 1, of Commodore’s TECHTOPICS describes just such 
a device, which they call a NO OP TESTER. In brief, just take a "spare" 
6582, and bend up pins 26 through 33 so that they will not fit into the 
socket. These pins are data lines DA7—-DA@, respectively. Next, wire 
Pins 26, 27, 28, 34, and 32 to pin 8 (+5V), and pins 29, 31, and 33 ta 
Pin 21 (GND). Install this “doctored” 6562 into your system and then do 
your signal tracing. 


What you have done is forced the 65@2 data lines to "read" $EA, which is 
the NOP code. Since NOP is a two cycle operation, the 6592 will count 
through all 64K addresses in 128K useconds, or at a 7.63 Hz rate. You 
should then "probe" address lines, decoder outputs, chip selects, etc. 


Just for the fun of it, we wired up a NOOP TESTER, and checked out the 
address decoding chips on a working SYM with both a scope and an under 
$29.99 logic probe from Radio Shack. We may make up a 65@7 version for 
use in KTM-2 trouble-shooting. (Thanks to Chuck Harrison, of Groton, 
CT, for sending us the copy of TECHTOPICS and other valuable material.) 
SEAT THOSE CHIPS 
FORETHOUGHT PRODUCTS, 8797 Dukhobar Road, Eugene, OR 97492, makes a 
number of accessory products for the AIM 65 which will also work with 
the SYM-1. We quote from their newsletter, "The AIM-Mate Monitor”, 
Vol. 1, No. 3, some advice which is also pertinent to the SYM: 
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"® number of AIM 65 system problems have been traced to faulty Ic 
sockets on older AIM 65 boards. These sockets, which make contact with 
only the outside shoulder of the IC pin, can develop a high resistance 
between the socket and the IC pin over time. If trouble occurs with 
older AIM 65 boards, try re-seating all the ICs (pressing firmly on both 
ends will usually do the trick) before you ship it off for repair. 
Keeping the ICs firmly seated in their sockets (especially the 49-pin 
ICs) will often head off system trouble with these not-so-perfect 
sockets. Note: Newer AIM 65 boards use a socket type which is not sub- 
ject to these problems.” 


We pointed out this problem as existing with some SYMs and KTMs in an 
earlier issue. The types of sockets used by Synertek Systems Cor- 
poration do vary from one production run to the next, and often differ 
from 18-pin to 24-pin to 4@-pin types, so you’ll just have to look at 
your own systems to see which you have. Meanwhile, "flexing your boards 
and wiggling your chips" often helps, at least temporarily, in "fixing" 
some of your intermittent problems. Our FODS system gives an error mes- 
sage when what has been down-loaded to RAM does not check when compared 
immediately to the contents of the disk (really a great feature). When— 
ever this happens, we wiggle the connectors on our external 16K RAM 
Board (one made by Synertek to fit the Motorola EXORCISOR bus) and the 
problem clears up. 

MORE ON THE CASSETTE INTERFACE 


TRANSCONTINENTAL MEMO 


FROM: JERRY AWINs 
TOs cGy 
SUBJECT? 


KENDALL RD. 
‘ENEERG KENDALL PARE 
‘M Tare INTERFACE Node 0 


Tear Lous 


THE OTHER DAY: I HAD SOME TROVELE WITH A TAFE THAT HAD WORKED 
OFTEN IN THE FAST: PROVIDED I useD A “GOOD” RECORDER AT THE “RIGHT” 
VOLUME. A BUICK LOOK WITH THE OSCILLOSCOFE RPAISED M¥ EYEERONWSs 
TURNED MY STOMACHs AND CAUSED My HEART TO SINK. THE RISETINE OF THE 
COMFARITOR OUTPUT WAS VERY LONG: AND THE TRANSITION VERY IRREGULAR. 


AeTER PEFORMATTING MY ANATOMY: I TOOK A HARD LOOK AT THE SOFT ERRORS. 


| are : apr UZ6 


HYSTERESIS (DEAD BAND & SNAP ACTION? 


CIRCUIT CHANGES Mew Parts 


THE SCHEMATIC SHOWED THAT NO HYSTERESIS I 
CHANGING THE DIODE CONNECTIONS AS J. SINNETT CS YM-PHYSIS 2 
- ® GOOD IDER THAT I HAVENT GOTTEN AROUND TO YET — 1 CHOSE TO 
THE HYSTERESIS. Im THE DIAGRAM s THE 10K RESISTOR MAKES THE HYSTERESIS 
FOSSIELE AND INCIDENTALLY TEMPERATURE-COMPENSATES THE COMPARITOR. THE 
1 MEG RESISTOR COULD EE VARIED TO CHANGE THE AMOUNT OF HYSTERESI=s 


FROVIDEDs AND EEFORE 


EUT THE NEED SHOULD NOT ARISE. THIS MOD DOESNT INTERFERE WITH EIASING 
THE COMPARATOR TO MAKE FBG ON UES AVAILABLE. THE NEW RISETINE IS EETTER 
THAN MY AUDIO SCOPE CAN FOLLOWs SO THERE IS NO LONGER ANY NEED TO TURN 


VOLUME UF TO WHERE RECTIFICATION EECOMES A FROELEM. 
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Now ALL OF MY CHEAF RECORDERS ARE “sSoOOor'’s AND MUCH LOWER VOLUMES 
APE “RIGHT”. I gust TURN UF THE KNOE UNTIL THE “AUDIO’ LED stows pimnir 
AND THINGS WORK FINE. ImciIpentcys C16 AT .ce oF 205 MICROFARADS WORKS 


AEDUT AS WELL? MAYEE THE EEST VALUE IS IN THE MIDDLE! 


P.S. In a later telecon Jerry says that, in his opinion, after many 
experiments, a @.22 ufd capacitor works best at Ci6é. We feel that the 
choice may depend on the recorder being used. We like the smaller 
values since low frequency response is not required, and the smaller 
values reduce the effects of any 69 Hz hum present, and permit faster 
"settling" if there is a DC component at the input toa C16. Slow 
settling could {and does) prevent RAE GEts from locking onto the short 
synch bursts if the read recorder is started under remote control. 


Many recorders do not have a DC-blocking capacitor at the earphone jack. 
For example, our Radio Shack Realistic CTR 8@(A) puts out -@.47 V at the 
earphone jack when in STOP; this jumps to over 5.2 V and settles down to 
2.77 Vo when in PLAY. When we parallel the jack with an 8 chm earphone 
and then remove the earphone the polarity reverses (this DC shift is one 


reason we recommend leaving an earphone in; the other is for proper 
loading). 


MORE ON COPYRIGHTS 


ITEM 1 


We received, through Jack Gieryic, a copy of the Honeywell Computer Club 
Newsletter, dated February/March 1981 (sic, it should have said 1982!), 


with an article by Dan Buchler, entitled "Copyright Software Con- 


Siderations for Microprocessor Users", from which we quote the following 
sentence: 


". »« « If you have two persons using a program on the same or different 
systems, you may not copy a copyright program simply for the convenience 
of the second person who wants to use the system. ..." 


We feel that the home environment is so distinctively different from the 
traditional academic and industrial environments in which computers once 
exclusively resided, that whatever family members do with their "family" 
computers in the privacy of their own homes must be treated differently 
under the law. 


We treat purchased software much as we do a reference book (with the 
exception that we immediately make a backup copy). We buy only one 
copy, and each family member uses it as required. Since we have elected 
to satisfy our family requirements by providing individual systems for 
each user, rather than with a single time-shared multi-user system, each 
of the systems has a copy available on its own mass storage device. 
This is for convenience mainly, and it is very unlikely that two copies 
are being used simultaneously. 


EVEM <2 


We have just received a copy of Saturn Software’s SK-FORTH 79 (Release 
2.9), and a beautiful package it is, indeed. The two manuals which come 
with the package are extremely thorough, and, of course, are coprighted! 


We worked with Jack Brown on the production cf the manuals for Release 
1.8, and we know how much time and effort went into those, and what the 
printing costs for a small production run can be, so we have a pretty 
good idea of how many copies of Release 2.9 must be sold in order for 
Jack Brown to break even on his production costs, let alone grow exor- 
bitantly rich on the profits. 
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We certainly hope that Jack finds it worth his time and effort to con-— 
tinue publishing such quality software, with full source code available. 
He can only do this if enough copies are sold. This means that we, as 
users, should ask ourselves how we would feel if Jack were giving away, 
or swapping, copies of similiar quality software we ourselves were 
trying to market, whenever we are tempted to exchange a copy of FORTH 
for a copy of Pascal, or whatever! 
ITEM 3 


Source code is protected under the copyright law in much the same manner 
as any other "literary" work. But what about object code, in ROMs, for 
example? 


Richard H. Stern, in the February 1982 issue of Computer Design, Vol. 
21, No. 2 (pp. 131-144), in an article entitled "Copying ROMs: Right or 
Wrong" cites the two following court decisions, which should answer the 
question(?). 


(1) 1979: Chicago Federal Trial Court, in Data Cash Systems, Inc v 
JUS&AA Group, Inc — —- ROMs ARE NOT protected under copyright law. 


(2) 1981: San Francisco Federal Trial Court, in Tandy Corp v Personal 
Micro Computers, Inc — — ROMs ARE protected under copyright law. 


Take your choice! 


ON ROMS, SRAMS, AMD EPROMS 


We will be rebuilding cur EPROM burner(s) to handle 2532s and/or 2732s, 
and, while we are at it, we will add some “convenience” features to be 
able to download 2K ROMs as well, in particular those with chip-select 
polarities different from "standard", i.e., those which we can’t just 
Plug inte a SYM for reading. Examples of such ROMs are those in the 
Apple II, and, closer to home, the “main” ROM in the KTM. 


We have Dlynamic)RAM at $9998 ("surplus" from the 32K Beta Board) on our 
main development system in which we test and debug programs to be burned 
into 2716 EPROMs at the same address for GEM systems. A variety of 
2K x 8 S{tatic)RAMs, (some CMOS) —- Hitachi 6116, TMM 2416, NEC 446 and 
447, Toshiba 5516, etc. -— is now available which are pin compatible with 
the 2716s, and may be used for similiar program development. We prefer 
RAM to ROM, anyway, in disk systems (except for a BOOT ROM), and so will 
be putting a 6116 in at $F9@@ in our CODOS system. 


If you plan to use only 2K EPROMs or SRAMsS in the SYM sockets, you might 
wish to abandon the wiring convention suggested for 2716s used on the 
SYM, as described in Table 4-3a of the SYM-1 Reference Manual. This 
convention was adopted so that pin 2@ could be used for chip selection 
for all ROMs) and EPROMs used on the SYM. The standard convention for 
2716s is to use pin 18 as the Chip Enable (low) and to tie pin 
28 — Gutput Enable (low) to ground. This choice has the added advantage 
that the 2716s are placed in a low power "standby" mode when not 
selected. Pin 21 should remain connected to +5 V. The only change then 
needed when installing a 2K x 8 SRAM in place of a 2716 is to rewire pin 
21 to RAM R/W (Read-High/wWrite-Low), which is available at pin Z af the 
Expansion Connector ({E). 


Mitchell G. VanOchten, of Livonia, MI, recommends the following method 
of installing SRAMs in U21, U22, and/or U23: 


Tie K, L, and/or M (pins 2@) to ground at jumper position 2 - 3. 

Tie F, G, and/or H (pins 21) to RAM R/W at E - Z. 

Tie B, C, and/or D (pins 18) to the desired 2K address block at 
the appropriate jumper point, with external 2.2 K pull-up 


resistors to +5 V. SYM-PHYSIS 11-25 


Mr. VanOchten reports that he had spurious addressing problems when 
using pins 2@ for chip selection, and that the method presented above 
eliminated the troubles. We have not yet installed our "sample" SRAM, 
so we don’t know if the "fix" he suggests is necessary. We would prefer 
to use the pull-up resistors already on board at K, L, and M. Our own 
suggestion would be to tie K, L, and M to the 2K address block jumpers, 
as recommended in the reference manual, but then tie B, C, and D to H, 
L, and M, respectively, so that CE (pins 18) and OF (pins 2@) are tied 
together. The power-saving standby mode is thus still enabled. 


SYNERTEK ROMS 

Here is a list of the Synertek proprietary ROMs used in the SYM-1. We 
do not have any information on the ROMs used in the SYM-2, MDT-199¢, 
KTM-3, etc. 


92-BB12A 2332 (4K) MON 1 (SY 1.9) 
G2-GG12B 2332 (4K) *MON 2 (S¥Y 1.1) 
B2-BBSSA 2364 (8K) RAE-1 {Requires inversion of Al2) 


B2-G@O53B 2364 (8K) *RAE-1 (Current one chip version) 
G2-BG23A,24A 2x2332 (4K,4K) *RAE-1/2 (Two chip version) 
92-9BS58A 2364 (8K) *BAS-1 {One chip version) 
B2-BBiAIA, 2GA 2x2332 (4K, 4K) BAS-1 (Two chip version) 


NOTES: The suffixes "A" and "B" in some production runs are replaced by 
"-G1" and "-@2", respectively. "%*" indicates current production. 


KTM-—2/89 CHIPS 

The 2K ROM (2316E) currently being supplied with the KTM-2/89s bears the 
house number @2-9959-@2 (the -@2 indicates a "B" version). Our original 
"Old Faithful" KTM-2/89 has a ROM marked @2-9959-A. Since we have not 
disassembled either we do not know how the two ROMs differ. it, is 
possible that the differences may be significant when when you replace 
the ROM with an EPROM of your own programming. 


The KTM-2s use the 92-9@16B as the main ROM. The very, very, old KTM-2s 
used the #2-@@14-@1 (we had one of these), and the display was much too 
wide for the typical overscanning type of monitor, or a TV set (with RF 
input) to handle. Switching from the -@1 (or A) ROM to the -#2 (or B) 
ROM required also a change of the crystal from 12.598 MHz to the current 
14.31818 MHz value. 


All KTMs use 62-@@17B ROMs for character generation; unlike all other 
Synertek 2316Es these are directly replaceable by 2716 EPROMs, since the 
three CS lines have the same polarity specifications. 


Bob Myers asked us to point out that some KTMs use 29-pin 83@4s at US34 
and USS, while others use 18-pin 87T245s. The board will accept either 
type, although all the manuals we have seen specify the 8394. The 8394 
is described in the manual as a port, bi-directional. The 87245 is 
Similiar to the 74245, but has a different pinout. 


MODIFYING KTM-—2/89 ESCAPE SEQUENCES 

The following extracts from a recent letter from Dr. Strube provide 
additional information on KTM-2/8@ customization. Note that he, too, is 
an experimental psychologist. The FORMATTER he describes is even more 
versatile than SWP-1! We have not tried it ourselves, as yet, because 
we must first "recustomize” it for our own system configurations(s), 
which differ from his in memory mapping, etc. His instruction manual is 
superb. We’?1l be contacting him to see if he wishes to offer it for 
sale. 
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Dr. GERHARD ST ROUSBME 
SckellstraBe 5 D-8000 Miinchen 80 Tel. 089-4801417 
Re: Customizing the KTM, and text FORMATTER 


thank you for including my notes on the KTM in the latest 
issue of SYMPHYSIS. Since you now got an EPSON printer, with 
a real wealth of ESC codes (not all compatible with the 
KTM), I. should like to point out how to ‘customize’ KIM 
escape sequences. 


The 2k KTM program (let us assume addresses from $000 to 
$7FF) tests for ESC at locations $58C and $5D0B by CPX §$D8 
(backwards as usual, so $N8 actually means $1B). Ensuing CPX 
commands test for all the ESC sequences: 


LOCATION CPX §$ MEANING 


$5C9 BC = abs. cursor addr. 
$5D7 D4 + rel. cursor addr. 
$5E3 A2 E form feed 

$5EA 12 H home 

$5F4 Be J clear E0S 

$5FB N2 K clear EOL 

$602 E2 G enter graphics mode 
$60F 4A R enter reverse mode 
$617 E6 g leave graphics mode 
$624 4E r leave reverse mode 
$62C 36 ] aux. port off 

$639 32 iE aux. port on 


I am glad to credit my colleague, Dr. Werner Schubd, for the 
discovery of these addresses. On my system, I have changed 
the ESC 1 to an ESC CR in order to avoid having printed an 
')' when I switch off my printer (which is connected to the 
KTM aux port). 


My printer, by the way, is an Olivetti typewriter which uses 
daisy-wheels and prints up to 30 chars. per second. As you 
may have guessed, it is the most expensive part of my system 
(about $ 1600), but, since I use it for all my manuscripts, 
it is indispensable. The rest of the system consists of a 


SYM, together with a Computerist DRAM, a Philips Mini-DCR 
(digital cassette recorder, 6kBaud, ECMA norm), and an 
Anderson-Jacobson modem (connecting my SYM to a Cyber 175). 
Through the addition of two 6551 ACIAs, the modem and the 
KTM are both handled by interrupt. - I use a second, 'naked' 
SYM, with some analog and digital interfaces, for control of 
experiments, then read the data into my SYM at home, send 
them to the Cyber for statistical analysis, and get the 
results back to where I write the reports (I'm an 
experimental psychologist, by the way). 


Since you took interest in the text formatting program I 
use, I have prepared some information which, along with the 
source included, should enable you to adapt FORMATTER to 
your system with little effort. I'm eager to get your 
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remarks, since I do not know other formatters for RAE, e.g. 
the Moser TWP. Sincerely yours, 


thr “Sa e 


CONVERTING TTY OUT TO A SECOND CRT OUT 

Here’s a very simple way to convert SYM’s 29 mA Current Loop (CL) output 
to Inverted TTL output. Remember that Inverted TTL is accepted by most 
modern modems (DCE —- Data Communication Equipments) and/or terminals and 
printers (DTE — Data Terminal Equipments) which conform to RS-232C (EIA) 
specifications. All such equipments designed around the 1488/1489 
transmitter/receiver chip pair will accept Inverted TTL. All Epson 
serial interface adapters accept Inverted TTL, so that if you want to 
free your parallel interface for more interesting uses, such as Voice 
I/0, EPROM burning, or whatever, here is how to do so. 


Incidentally, the SYM-1 is configured as a DCE, the main port on the KTM 
as a DTE, and the aux port on the KTM as a DCE. When interconnecting 
DCEs to DTEs, wire 2 tao 2 and 3 to 3. When interconnecting DCEs to DCEs 
or DTEs to DTEs, wire 2 to 3 and 3 to 2. In all cases 7 is the signal 
ground on both. Be careful in using pin 1 as a signal ground, as on 
some equipments it is connected to the third wire of the power cord, and 
accidents can happen in this area. 


TELEX COMMUNICATIONS, INC. 


Divisions: HY-GAIN * MAGNECORD ¢ TURNER® 
9600 Aldrich Avenue South * Minneapolis, Minnesota 55420 US A. * Telephone: (612) 884-4051 « telex: telexcomdi mps 29-7053 


Dear Lux, 


To modify the current loop output to the same configuration as 
the CRT output for inverted TTL output to a serial printer, an 
inverter and a resistor must be added. This was discussed in 
an earlier newsletter. 


An easy way to do this is to cut the foil at point "C" located 
on the foil side of the board between U3 and U6. Solder a wire 
from point "A" to pin 3 of U9 (input to inverter), and solder a 
wire from point "B" to pin 4 of U9 (output of inverter). Push 
the wires right into the feedthrough holes at points "A" and"B". 
You have now connected the unused inverter in U9 between PB5, 
pin 18 of U27, and the base resistor of Q30. (See fig. 4.2 in 
the Sym Reference Manual.) 


Next connect a 200 or 220 ohm resistor from the emmiter of Q30 
to ground. 


This is done by first locating resistor R110. On the newer 
SYM-1's R110 is located just to the right of pins 13 and 14 of the 
"K" connector. On the bottom of the board, solder the new resistor 
from the inside end (the end farthest from the "K" connector) of 
R110, to pin 12 of the "K" connector (ground). 


However, on older boards, that have discrete resistors instead of 
RN1, R110 is located about 4 inch down from the "K" connector and 
your new resistor should be soldered to the outside end (nearest @ 
board edge) of R110 and Pin 12 of the "K" connector. This completes FOIL SIDE 

the modification. 


I am using this port to drive an Epson MX-80 printer, which is equiped 

with the 2K buffered serial interface. I have connected the "Busy" 

signal, pin 20 of the printer, to pin "K" of the "A" connector as 

prescribed by Browns Extended-Sym Basic. This allows me to operate 

the KTM-2/80 at 4800 baud and the printer at 2400 baud. It works GREAT! sym-PHYSIS 11-28 


Before I connected the "Busy" signal I was operating the printed 
at 1200 baud. This worked OK for short listings but for longer 


ones, above 2.5K or so it was too fast and I had to reduce it to 
600 baud. 


I like the serial printer interface because it frees the ports 
for other purposes. 


| aaa 


Harold Hansen 


A BASIC DISASSEMBLER 

Here’s a handy little utility program for BASIC users who have a once-— 
in~a-while need to use a disassembler to help them debug a USR function, 
or perhaps make a few minor changes. Dean Garth, its author, would like 
te organize a users’ group in his area. His address is 28619 Golden 
Meadow Drive, Rancho Palos Verdes, CA 98274. 


The workings of the disassembler are easy to figure out. It isa 
so-called "table-driven" disassembler, and by changing the table entries 
it can be made to work with any micro, such as, for example, the 8949 as 
used in the Epsons. Following the LISTing is a disassembly of a portion 
of SUPERMON, obtained by answering the START ADDRESS ? and END ADDRESS 7? 
questions by &"8999", and &"89FF", respectively. 


196 REM "CCK 
119 REM " A BASIC DISASSEMBLER " 
12@ REM " DEAN GARTH es 
13@ REM "OCC 


14@ DIM H#(15),A(15),B8(15) 
15@ FOR K=@ TO 15: READ H#$(K),A(K),B(K)=NEXT K 
16@ DIM C$(15,15) 
179 FOR K=@ TO 14 
189 FOR J=@ TO 15 
19@ READ C#$(J,K) 
260 NEXT J 
219 NEXT K 
228 INPUT "START ADDRESS ? "3X 
23@ INPUT "END ADDRESS ? "sY 
249 PRINT 
258 PRINT 
26% PRINT "ADRESS"; TAB(9) 3 "NMEMONIC"; TAB(21) 5 "GQPCODE" 
278 PRINT "“—--------—-—~-—------—------—---—- . 
289 IF X>@ THEN 399 
298 X=65536+XxX 
399 IF Y>@ THEN 328 
318 Y=65536+Y 
32@ C=PEEK(X) 
33 AL=INT(X/4996): B1l=X-A184996 
34@ Ci=INT(B1/256): D1i=Bi-Ci*256 
35@ E1=INT(D1/16): Fi1=Di-E1*16 
36@ PRINT H$(A1)3HS{(C1) SHB(E1) SHB(F1) 5 TAB(P); 
37@ E2=INT(C/16): D2=C-E2%16 
38 IF D2>@ THEN 498 
399 F=A(E2)-1: GOTO 496 
496 IF D2>4 THEN 426 
419 F=1: GOTO 499 
426 IF D2>8 THEN4S4& 
439 F=9:GOTO 499 
449 IF D2>9 THEN 460 
459 F=B(E2)-1: GOTO 499 
469 IF D2>1@ THEN 489 
47% F=6: GOTO 496 
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489 F=2: 


GOTO 499 


499 PRINT C$(E2,D2) ;TAB(21) ;H$(E2) 3H$(D2)3: IF F=@ THEN 55o 
5@@ FOR K=1 TO F 

516 C=PEEK(X+K) 

52@ D3=INT(C/16): ES=C-D3#16 

538 PRINT SPC(1) ;H$(D3) sH#(ES) = 


548 NEXT 


K 


S5@ PRINT 
S6@ X=X+F+1 
S7@ IF X>Y THEN 959 


58g GOTO 
598 DATA 
688 DATA 
616 DATA 
628 DATA 
638 DATA 
648 DATA 
658 DATA 
668 DATA 
6798 DATA 
68@ DATA 
699 DATA 
782 DATA 
716 DATA 
729 DATA 
73@ DATA 
749 DATA 
758 DATA 
76@ DATA 
77@ DATA 
789 DATA 
792 DATA 
890 DATA 
819 DATA 
828 DATA 
839 DATA 
842 DATA 
85g DATA 
868 DATA 
872 DATA 
88a DATA 
899 DATA 
9G DATA 
919 DATA 
92@ DATA 
938 DATA 
942 DATA 
959 END 


BRK, BPL, JSR, BMI,RTI,BVC,RTS,BVS, ,BCC,LDY IMM 
BCS,CPY IMM,BNE,CPX IMM,BEQ@,QRA IND X,ORA IND Y 
AND IND X,AND IND Y,EOR IND X,EOR IND Y 

ADC IND X,ADC IND Y,STA IND X,STA IND Y 

LDA INDX,LDA IND Y,CMP IND X,CMP IND Y 

SBC IND X5SBC) INDVie 5 6 6 4 4.6 = 6 3 

EDX EN giis. voce, oro) SS), 5 eas eis i Ge ae 

* Mab ate ig Gbon & PAGE, 5. so ot oa 


STY Z PAGE, STY Z PAGE X,LDY Z PAGE,LDY Z PAGE xX 
CPY Z PAGE, ,CPX Z PAGE, ,ORA Z PAGE 

ORA Z PAGE X,AND Z PAGE,AND Z PAGE X,EOR Z PAGE 
EOR Z PAGEX,ADC Z PAGE,ADC Z PAGE,STA Z PAGE 
STA Z PAGE X,LDA Z PAGE, LDA Z PAGE X 

CMP Z PAGE, CMP Z PAGE X,SBC Z PAGE,SBC Z PAGE X 
ASL Z PAGE,ASL Z PAGE X,ROL Z PAGE,ROL Z PAGE X 
LSR Z PAGE,LSR Z PAGE X,ROR Z PAGE,ROR Z PAGEX 
STX Z PAGE,STX Z PAGE Y,LDX Z PAGE,LDX Z PAGE Y 
DEC Z PAGE,DEC Z PAGE X,INC Z PAGE,INC Z PAGEX 


5 s 5 s , s s s s s ’ ’ s ’ s 
PHP, CLC, PLP, SEC, PHA, CLI, PLA, SEI, DEY, TYA, TAY, CLV 
INY,CLD, INX,SED.ORA IMM,ORA ABS Y.AND IMM,AND IMM Y 
EOR IMM,EOR ABS Y,ADC IMM,ADC ABS Y, ,STA ABS Y 
LDA IMM,LDA IMM Y,CMP IMM,CMP ABS Y,SBC IMM,SBC ABS Y 
ASL A, ,ROL A, ,LSR A, ,ROR A, ,TXA,TXS, TAX, TSX 
DEX s s NOP s s s s 3 s s 5 ’ J ’ ’ s 3 s s a be 
“") , ,BIT ABS, ,JMP ABS, ,JMP IND, ,STY ABS, ,LDY ABS 
LDY ABS X,CPY ABS, ,CPX ABS, ,ORA ABS,ORA ABS Xx 
AND ABS,AND ABSX,EOR ABS,EOR ABS X,ADC ABS,ADC ABS X 
STA ABS,STA ABS X,LDA ABS,LDA ABS X,CMP ABS,CMP ABS X 
SBC ABS,SBC ABS X,ASL ABS,ASL ABS X,ROL ABS,ROL ABS X 
LSR ABS,LSR ABS X,ROR ABS,ROR ABS X,STX ABS, ,LDX ABS 
LDX ABS Y,DEC ABS,DEC ABS X, INC ABS, INC ABS X 


NMEMONIC OPCODE 8g1C TAX AB 
Fe Se 821D PLA 68 

JMP ABS 4C 7C 8B 8G1E rtd = 238 

JSR 26 FF 88 8@1F JMP IND 6C F6 FF 

JSR 2@ 4A 81 8922 PLA 68 

JSR 207) GL 8923 TAX AR 

JMP ABS 4C $3 89 8424 PLA 68 

PHP 98 8825 PEP 28 

PHA 48 8926 JMP IND 6C F8 FF 

TXA BA 8829 JSR 2@ 86 8B 

PHA 48 842C SEC 38 

TSX BA 892D JSR 28 64 8G 

LDA ABS X BD 94 @1 893G LDA IMM AI 31 

AND IMM 29 16 8832 JMP ABS 4C S33 88 

BEQ FO B7 8935 PHP 98 

PLA 68 8936 JSR 2 86 8B 
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TOM GETTY*S "3-D TIC-TAC-TOE" 1966 EGS$=ES$+"G" : DGS=ES$+"g" 
Se eee eS ee oe 1978 CR$=ES$+"+" =: CAS=ES$+"=" 
Tom Gettys is an extremely talented and versatile Computer Scientist. 1989 CS$=ES$t"E" =; HM$=ES$+"H" 
Without his very close collaboration SYM-PHYSIS would never have been 1996 EL$=ES$+"K" = ES$=ES$+"J" 
born. To give you just one example of how prolific he is we reproduce 1190 : 
below the directory of a disk (HDE/FODS) which he gave us more than a 1110 =: 
year ago. The "." which appears before each five character file name 1128 REM MAIN CONTROL STRUCTURE 
{and the starting addresses @2@1) indicates that these files are written 113@ : 
in BAS-1 (with disk interface added, of course). This disk is but one 1149 PRINT CS$ 
of many in his disk library. 115@ GOSUB 97999 REM display the game name 
116@ GOSUB 7999 REM generate the data base constants 
To give you an idea of the quality of his programming we also are pub-— 1178 PRINT CSS 
lishing his program ".3D", which is a three dimensional Tic—Tac—Toe 1189 GOSUB 46999 REM display the playing board 
written for the SYM with KTM-2/89. We wish we could reproduce the 1198 : 
opening graphics on the Epson but the KTM’s cursor control ESC sequences 1249 PRINT 
“don’t compute" on the Epson (incidentally, Tom showed us recently some 1218 INPUT "Who gets to move first? "3; AS 
high resolution Epson graphics he had produced with his Graftrax 8d 122@ IF LEFT$(AS,1)="Y" THEN PA=-1 : GOTO 1469 
driver routine). 1230 : 
1249 REM Get and check player’s move for errors 
Following the opening graphics, four four-by-four grids are drawn on the 1258 : 
screen and the computer asks: "Who gets to move first?” If your answer 1269 PRINT 
begins with "Y" (for "YOU", meaning, in this case, the computer), it 127 INPUT “What is your move? "3; BD, S@ 
Plays first. The computer plays a strong game; you may have to study 1289 MV=16%(BD-1)+S@-1 
the implemented algorithm if you want to increase your chances of 1299 IF BD<1i OR BD>4 THEN PRINT "Illegal board number" : GOTO 12469 
winning! 1319 IF SQ@<1 OR S@>16 THEN PRINT "Illegal square number" : GOTO 1269 
1326 IF SQZ(MV)<>@ THEN PRINT "That’s already occupied” : GOTO 1269 
It’s only a very minor point, of course, but notice the "pretty— 1338 : 
printing” format Tom uses, especially the nested FOR . . . NEXT loops in 1349 REM Display move and update data base 
lines 7989 through 7119. Tom has also provided us with a very useful 135@ : 
utility, "PAC", which removes all "null" lines, "surplus" spaces, and 136@ MK$="X" =: GOSUB 2269 
REMs (make certain first that you never GOTO a line beginning with a 137 PRINT ES¢ 
REM!) from a BASIC program, to allow more "RUNning"” room. 1389 SOZ(MV)=1 = PA=-1 


1399 FOR I=@ TO 6 


We have often asked Tom to compile his best SYM software into book form, 1499 : SP=PAZ (MV, 1) 
but he replies that no one would really be interested. We’1ll keep work— 1419 : IF SP=-1 THEN 1469 
ing on him! 1426 : VAZ(SP)=VA%(SP) +1 
; 1430 : IF VAZ(SP)=4 THEN 2949 
>DC DIR 2 Disk No. 5@ — Miscellaneous Gettys’” BASIC Programs 1449 : IF VAZ(SP)=3 THEN PA=SP 
G1 .MULT 201 G9D6 @1 G1 @2 .BIO 9201 B7FS G2 G1 14ase NEXT 
93 .EVEN 921 G4DR G2 13 @4 .RESEQ @2G1 G516 GS OS Agen: 
@5 .FIND #281 @3D4 93 19 @6 .FFT 9201 GB46 OS 14 oi P 
Ch 
97 .HANOI 9201 9AAS G5 G1 G8 .WARI 9291 B4FF 96 OS tates ach tee en hy: Fie Scene 
29 .PLOT G@2@1 @76C G6 99 1@ .PLOT1 21 S7EB8 @7 94 woe he ice 40-98 
11 .-PLOT2 @291 GBAA 97 16 12 .PLOTS 9201 @8A1 98 14 isos s | IF WALICiniS > ny eae 
13 .DEPTH 9201 @CD4 99 12 14 .OTHEL 9201 @C76 11 92 inka Meee ‘ _ oe PASE a) Bete tome 
15 .THINK @2@1 @C52 12 &7 16 .DEMOS $261 GEBD 13 12 (aaa ee pats Si Rr teogn 
17 .PLOTS 9201 OAZB 15 86 18 .REVRS 9281 O33F 16 07 oe ee eee ee ee a ee aoe 
19 .TREE 9291 9482 16 19 2G AUX 929G BC7D 16 16 ieee KEN : F 
21 .PRIM1 @291 @29E 18 @5 22 .PRIM? @2@1 @47A 18 @7 1s0@ ; Determine. computer’s move 
23 .PRIM2 @2@1 @3F3 18 12 24 .BINOM @291 9657 18 16 LA Mil + Maat 4 aed 
25 .SAMPL @2@1 @385 19 99 26 .QKSRT @2G1 9863 19 13 ikea FOR ine TO ES 
27 .PRIME 9291 G56 29 16 28 .LIFES @2@1 S6DF 21 1 ee TF Se.(2) 25m THEN en 
29 .LIFE 201 1192 21 11 3G .LIFER @201 9998 23 11 1620 Svea 
31 .3D @2G1 19D4 24 19 32 .PIMS G@2@1 179B 27 19 pee FOR d<® To é 
335 .STATS @201 B41C 39 G6 34 :LIFE 928 16D1 3@ i1 1649 PA=PAZ(I,d) 
NOTE: File 34 is RAE source code for a 1659 IF PA=-1 THEN 1738 


NEXT: T33 S@#S 


ML version of "The Game of Life", very 1668 : VA=VAZ (PA) 
much faster than the BASIC version. 1679 : IF VA=@ THEN 1712 
: : . 1689 : IF VACS THEN SV=SV+VARVA : GOTO 1719 
~_ DIM PAZ(63,6), VAZ(75), SQZ%(63), WN(3) 1499 : QU=INT (VA/5) 
1928 REM Define the KTM 2 display control constants ae : sete VASS#QU THEN SV=SV+QU 
1938 : 1729 : 
1649 ES$=CHR$ (27) 
wae * sae 173@ : IF SV<MX THEN 1789 
1959 ERS$=ES$+"R" =: DRS=ESS$+"r 1749 : PC=SGN (PAZ (1,46) ) 
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176@ 


IF PC<MC OR RND(1)<@.5 THEN 1789 
MX=SV : MV=I : MC=PC 
EXT 4 


zee 


F MV=-1 THEN PRINT "It looks like a cat’s game!" : END 


Des me 
m 
= 


Update data base 


QZ (MV) =5 

OR I=@ TO 6 
PA=PAZ (MV, I) 
IF PA=-1 THEN 1916 
VAZ (PA) =VAZ (PA) +5 


Zw THe 
m 
~< 
~ 


es) 
m 
= 


Show player our move 


MKS="0" : GOSUB 2269 

PRINT "I moved to board"; BD; " square"; SG 
IF WN=@ THEN 124¢ 

PRINT : PRINT "...and winning!!!" 
MK$=EG$+CHR$ (96) +DGS 

FOR I=@ TO 3 

: MV=WN (1) 

: GOSUB 2266 

NEXT 

PRINT : PRINT : END 

PRINT : PRINT "You won!!!" 

PA=SP 

GOSUB 2169 : GOTO 1969 


REM This subroutine returns the number of the remaining 
REM empty square (I) in the path MVZ. 
K=6 


FOR I=@ TO 63 
FOR J=@ TO 6 
SP=PAZ (I,J) 
IF SP=-1 THEN 2249 
IF SP<>PA THEN 2230 
IF SQ@%(1)=@ THEN EM=I 
WN(K)=I > K=K+1 : IF K=4 THEN RETURN 


ome Zoe ae ee ee 


NEXT J 
EXT I 
REM This subroutine enters a mark (MK$) on the board 
REM in square SQ%. 


BD=INT(MV/16) +1 

SQ=MV-16% (BD-1)+1 
QU=INT ( (SQ-1) /4) 

MO=SQ-44*QU 

Y=24QU+34 

X=18%BD+44mM0+12 

PRINT CA#+CHR$(Y) +CHR$(X) +MK$; 
PRINT CAS+CHR$ (43) +CHR$ (33) 
RETURN 


REM Print a new board 


FOR I=1 TO 4 : PRINT TAB(184"I-13)3 "Board"; Is : NEXT 
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am. 
PRINT ER$; EGS 
PRINT BD$(@) 
FOR I= TO 2 : PRINT BD$(1) = PRINT BD$(2) : NEXT 
PRINT BD$(1) =: PRINT BD$(3) 
PRINT DR$; DGS 
RETURN ‘ 
REM For each square, compute or read in the 
REM number of any path involving that square. 
FOR I= TO 3 
: READ BDS 
F BD$(1I)=BD$+" "+BD$+" "+BD$+" "+BDS 
NEXT 
FOR I=4 TO 6 
: FOR J=9 TO 63 
Oe ittoz yreesz 
NEXT o Zo ; \ 
“ 1Y¥wwwk | | jwwwZ\ 
dy eee ta ig 
FOR I=9 TO 15 
= QU=INT(I/4) iq t lqqea tal lig 
> PAZ(1,8)=0U Yoqaqm | a NG 
2 PAZCI, 1)=I-42QU+4 ao Y 1 IINYo 
2 PAZ(I,2)=1+49 \aqqqqo Zqqqqqo 
: READ PAZ(1,3) 
ieee tttJIt tttJ tttJIttt ttt tttJIttJIttt 
F tdidd trridtdttL d Lrrtidtd dds Kk 
OR I=16 TO 63 
. QU=INT(I/16) d IK Kttd dod d Kttd d  dttddttL 
MO=I-16*QU 


PAZ(1,8)=PAZ(MO, 8) +1920U 

PAZ (1,1) =PAZ (MO, 1) +19%0U 

PAZ(1,2)=PAZ (MO, 2) 

READ PAZ (I. 3) NOTE: On the KTM-2/8% the above gibberish 
NEXT reads, in large, shaded, three dimensional 
5 appearing, block characters, on two lines: 


FOR I=@ TO 15 

: READ S 

FOR J=4 T0 6 
READ PAZ(S,J) 

NEXT 


3 = D 


TIC-TAC-TOE 


NEXT 


RETURN 
DATA "ADDOyOCOyO00y000B", "Vv Vv Vv v v" 
DATA “hOOOpOCOpoocodpaodi", "COO00x000x000xc00D" 


DATA 8,69,62, 9,57, 8, 9,65,58, 9, 8,66, 9,61,63, 8 
DATA 18,69, 79,19, 68, 18,19, 71, 72,19, 18, 75,19, 73, 74,18 
DATA 28.79, 69, 29,72, 28,29, 75, 68, 29, 28, 71429, 74, 75,28 
DATA 38,61,63,39, 65, 38, 39,57, 66, 39, 38,58, 39, 69, 62, 38 


DATA 9,56,68,69, 3,64,78,71, 12,59,72,73, 15,67,74,75 

DATA 21,56,57,68, 22,62,64,65, 25,58,59,61, 26,63, 66,67 
DATA 37,61,65,67, 38,57,59.63, 41,69,64,66, 42,56,58,42 
DATA 48,67,79,72, 51,59,69,75, 69,64,68,74, 63,56,71,73 


7 REM Output the game banner 


PRINT ER; EGS 
TH=22 
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996G PRINT " Yiili"+DR$t"o"+ERS+"Z 
987@ PRINT TAB(TZ) 5 


"4DRSt"\ 888 S"4ERGHE"Z" 


9989 PRINT "o "+DR$t+"Zo"+ERSt" : \ 

9899S PRINT TAB(TZ)3 

919G PRINT "1"+DRS+"Ywww"+tERSt"k 3 } j"+DRS$+"waw" tERSt"Z\" 
911@ PRINT TAB(T2Z)5 

9126 PRINT " Veoh ae You ia i"+DRS+t"g"+ERS 

913G PRINT TAB(T2Z)5 

9149 PRINT " lq 3 lqqm ia i"+DRS+"g"+ERS 

915@ PRINT TAB(TZ); 

9168 PRINT "Y"+DRS+"O"+ERSt"qqqm ; i a Y"+DR$+"\g"+ERS 
917G PRINT TAB(T%);5 

9182 PRINT "a"+DR$t+"o%*** Y"+ERS+" i Pit" +DRSt"\Y"+tERSt+"O” 


919B PRINT TAB(TZ);§ 
9262 PRINT "\qqqqqo 
9218 : 

9228 T7=13 

923@ PRINT = PRINT 
924G PRINT TAB(T%); 
9259 PRINT "tttJIt tttJd tttJIttt tttJd tttJIttIlttt” 
926@ PRINT TAB(TZ) 3; 

9270 PRINT "L"+DR$t"d "tERSt"L dd Lorr L"+DRSt"d "+ERS+"L"5 
9289 PRINT DRS+"d"+ERSt+"tt"+DRS+"L "tERSt"d Lo rr L"+DRS+"d "5 
9299 PRINT ERS+"L"4+DR$+"d "+ERSt+"d"+DRSt"G"+ERSt"S K" 

9398 PRINT TAB(TZ)5 

9319 PRINT DR$+" gd "+ERSt"I"+DRSt+"K K"tERSt"ttd 
9328 PRINT ERS+"ttd 
933H = 

934 PRINT DRS; DGS 
9358 PRINT CA$+CHRS (32+23) +CHRS (32+) 5 

9369 TL=23 

937 PRINT TAB(T“%); “Copyright 1989, thomas gettys"; 
9388 PRINT CAS+CHRS(32+1) +CHRS (32424) 5 

9399 RETURN 


"+4DR$+"Z"+ERS+"qQqqqqo" 


“CDRSt'd dd K"> 
"4DR$+"d d"+ERSt"ttd"+DRSt"d"+ERSt"tt"+DRS+"L" 


JACK BROWN’S VISIT 

Jack Brown (Mr. Saturn Software) and family visited with us overnight on 
their way to the 7th West Coast Computer Faire (we first met Jack in 
person two years ago, when he visited with us overnight on his way to 
the Sth West Coast Computer Faire!). History was repeating itself, but 
en this visit he brought even more wonderful goodies than last time. We 
describe one of them below, in connection with Pascal. 


X-RAY 

Saturn Software’s latest products, SYM-Pascal (Release 2.9), amd X-RAY 
(Release 2.8) are by Ralph Dean, and by Ralph Dean & Jack Brown, respec— 
tively. Pascal needs no introduction, and we did mention earlier that 
SYM-Pascal is integer only. 


We do not find this a real limitation, since most of our interests do 
not require floating point arithmetic. Hal Chamberlin’s MTU Advanced 
Music Synthesis package (in machine language) and Jack Brown’s "Turtle- 
Graphics” (in FORTH) both use simple algorithms and simple table lookups 
to do fairly sophisticated tasks such as Fourier Synthesis, and the 
like, with the 16-bit precision that is more than adequate for the jobs, 
and, much more important, fast enough for the jobs! The lack of float— 
ing point is a challenge, not a handicap, to a skilled programmer. 


We also mentioned earlier that Pascal operates "under" RAE. This means, 
in effect, that Pascal source files are actually RAE files, and that all 
RAE commands, including disk linkages and other add-ons, are built-in to 
Pascal. Now comes the exciting part! 


SYM-PHYSIS 11-35 


X-RAY does for RAE even more than Brown’s Enhancements do for BASIC. 


Among other things, it adds the following commands to RAE (and hence 
also to Pascal): 


ADdress line# (gives RAM location of start of line), APpend line# (see 
below), EXecute addrs (see below), FL(for File) addrs (lets you keep 
several files going), REstore (recover after clear or cold start), SAve 
ID addrsi addrs2 (for object code'), TApe 1, TApe 2 (to change tape 
speed to single or double!), and an improved EDit line#. 


There is not enough space to describe all of these new commands in the 
detail they deserve, but here are very brief explanations of two of 
them: 


EXecute is similiar in function to .£ in SUPERMON, in that a sequence of 
RAE commands can be prestored in RAM, and then EXecuted by giving the 
address as a parameter. Since all DOS (Disk Operating System) commands 
are callable from RAE, any desired DOS sequence may also be EXecuted. 


APpend lets you “scroll” through a text file by holding down the RETURN 
key. The vertical scrolling stops with the cursor at the end of a line 
when the RETURN key is released. The direction of "vertical" scrolling 
is reversed with CTRL U (up), and CTRL D (down). The cursor may be 
scrolled "horizontally" in wrap-around fashion through a line with CTRL 
H {BS or left), and CTRL I (TAB or right), and characters may be 
inserted, deleted, replaced, etc., exactly as if you were using a memory 
mapped display. Nearly any terminal which responds to CTRL H by 
backspacing can be used. The command is called APpend because its most 


“natural” function (since the cursor waits at the end of a line) is to 
append comments to source cade. 


X-RAY makes text editing and source code commenting almost a pleasure. 
We originally purchased our SYM mainly because RAE was "promised" as an 
accessory, and we knew that RAE would be great. We are continually 
being surprised by RAE becoming even greater and greater with such 
add-ons as X-RAY. We never dreamed it could become this goad! 


SYM DISK OPERATING SYSTEMS (continued from page 11-2) 

disk "primitives" may let you speed up your system significantly. MTU’s 
CODOS system comes with a built-in utility to customize your system, 
bless them! The program lists the default value of each built-in delay, 
and waits for either a <cr> or the entry of a better value, which you 
obtain from the spec sheet on your disk drive. 


DRIVES 


The 5S 1/4 inch drives come in 35 track (Shugart SA-49@) and 4@ track 
versions (Shugart SA-49@L). We mention the Shugart brand name here, not 
as a specific recommendation, but because their models are, in a way, de 
facto “standards”. These are single-sided drives. The Shugart SA-45¢ 
types are 4@ track double-sided drives. All of these drives may be 
operated either in single- or double-density mode; this choice depends 
primarily on the capability of the disk controller and which mode(s) the 
software supports. Some 5 1/4 inch drives reduce the intertrack spacing 
from the Shugart "standard" to provide twice as many tracks in the same 
space. 


The Shugart SA-89%/8Gi is the single-sided 8 inch "prototype", and the 
Shugart SA-85@/851 is the double-sided version. The SA-89@ may be used 
only with soft-sectored disks, the SA-841 with hard-sector as well. The 
SA-858 and SA-S851 differ from each other in this same regard. The 8@1 
(and 851) may be used with soft-sectored disks and a 34-wire cable 
instead of the standard S@-wire cable (e.g., FODS 8 inch systems). 
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All Shugart compatible disk drives accept the same types of power and 
controller cable connectors. All have an almost bewildering selection 
of "options", selectable by cutting traces and/or adding jumpers, and 
must be configured to meet any special requirements imposed by the 
controller and software. The factory installed jumpers are for single 
drive systems, and must be modified for multiple drive systens. All 3S 
1/4 drives require +12 V and +5 V regulated, and all 8 inch drives 
require 118 V AC (US), +24 V, and +5 V. Some 8 inch drives also require 
-5 V. 
DISKS 


The most “universal” type of disk is the soft-sectored disk, which has 
only a single hole to mark the “origin” for each revolution. Hard—- 
sectored disks may have 1@, 16, or 32 additional holes to mark sector 
boundaries. We will consider only soft-sectored disks here. The least 
expensive disks are the single-sided, single-density ones. This does 
not necessarily mean that they cannot be used at double density, or that 
the second side (which is the "top" side, by the way) is not usable. By 
cutting out a second "write-protect” notch (on 5S 1/4 inch only), = and 
punching a second "track-hole"” in the protective case, most single-sided 
disks may be flipped over to use either side. It is claimed by some 
that this is not a good idea, but Apple II owners do this all the time, 
since the Drive II does not even require the punching of ae second 
track-hole. 


Double-sided disks have the track hole in a slightly different location 
and will net work in a single-sided drive. Double-sided drives will 
accept either type of disk and can be jumpered to work either as a 
double-sided drive when double-sided disks are used, or as, in effect, 


two distinct single-sided drives, callable separately if a single-sided 
disk is used. 


HUDSON DIGITAL ELECTRONICS* - FILE GRIENTED DISK SYSTEM (FODS) 


We now have two, and will soon have three, dual 5 1/4 inch SYM-FODS sys-— 
tems operational, and in almost constant use, with no preventive main— 
tenance. One system is 35 track, the other two are 4@ track. Disks 
with 35 or fewer tracks "in-use" are freely interchangeable. FODS was 
our very first DOS and we learned a lot from it. FODS is strictly a 
single-density. single-sided system, as it stands. We have also had on 
hand, for nearly a year, a FODS 8 inch controller, which operates at 
twice the clock rate (the only difference), and we think that the 5 1/4 


software could be modified to support double-density operation with the 
8 inch controller. 


While we have 7 mini-floppy (5S 1/4 inch) drives around, until last week 
we had only one 8 inch drive, and that was "permanently" on our CODOS 
system. We will soon be packaging a self-contained dual 98 inch drive 
unit on a wheeled table which can be rolled around to service three 
computer systems. Each will have an extension cable dangling from it so 
that we can plug the drive system into it. One computer system will 
have both 8 and 5 1/4 inch FODS controllers installed, one at $A888, the 
ether at tA88@. Both may be co-resident and either booted up sepa-— 
rately. This will permit us to support both FODS formats. 


The FODS controllers are about 4 x 6 inches in size, and, being built 
for the KIM-4 bus, require unregulated +8 V, -8 V, and +16 V. The 
en-beard regulators may be shorted across, and regulated +5 V, -5S V, and 
+12 V supplied instead. Interface to the SYM is from the Expansion 
Connector to a VIA on the Controller Card, which shares space with the 
SYM’s "extra" VIA at $A8GGB. Since FODS needs nearly 4K of RAM at $7999 
for its own use, and perhaps 2K of RAM in the $6490 block, external 
memory is required. FODS goes very well with the 32K Beta DRAM board, 
which needs only +5 V, but generates its own +12 Vand —-S V on-board, 
enough to support the FODS controller, as well as itself. 
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FODS stores its files sequentially on the disk, never over-writing 
existing files, and thus must be periodically "packed" to compact the 
active files. This may not be the most "popular" technique, but it is 
good insurance. Even when you "clear" a disk by deleting the directory 
(DEL INDEX!), the data is still easily recaverable by indirect methods. 


UK SYM-DOS 


Even though FODS source code is not published, a group of SYMmers in the 
United Kingdom has disassembled and studied the inner workings of FODS. 
As a result they have generated a new DOS (called by them UK SYM-DOS), 
wholly compatible with the HDE Controller and existing FODS disks. In 
UK SYM-DOS, they have compacted the code, speeded up the PAK operation, 
and worked out a way to squeeze all of the utilities except SFM (ForMat) 
into the same 4K as the main portion of the DOS, thus speeding up all 
utilities by avoiding the access to the disk to download and overlay the 
utilities. 


They have added a number of new instructions which permit accessing 
individual sectors, overwriting files if desired (avoiding the need to 
pack), creating EXECute files (all SYM-DOS command names are four 
characters long, instead of three, as in FODS), etc. Best of all, it is 
available in well commented source code form, and studying the source is 
a good way to learn how disk systems really work. 


While UK SYM-DOS is descended from FODS it is a wholly new creation. 
The authors deserve commendation for making it 196% compatible with 
existing FODS files. We feel it is an enhancement to FODS, and cannot 
hurt FODS sales in any way. In fact, UK SYM-DOS is available only on a 
FODS compatible disk, which requires that the purchaser have a FODS 
system to begin with. 

MTU’S CHANNEL ORIENTED DISK OPERATING SYSTEM (CODOS) 


We have been using Micro Technology Unlimited’s CODOS for over a year on 
our high resolution graphic system, and CODOS forms the basis for Jack 
Gieryic’s graphics as well. Jack Brown also has both CODOS and FODS. 
Both systems are excellent; they represent two completely different pro- 
gramming philosophies and approaches to system design. The “channel 
orientated" concept (no time to define it here) is a very elegant tech- 
nique for I/O management, which takes a while to get used to, but makes 
CODOS a really versatile instrument. 


Having only a single-drive system available kept us from providing the 
SYM/CODOS community with full support. There was just no way to auto— 
mate the copying of disks (for distribution) on a single-drive system. 
This situation will be resolved by this summer, and we will provide full 
SYM/CODOS support. 


We should point out that CODOS supports only 8 inch drives, up to four 
of them, in ddouble-density mode. Double-sided drives are supported (if 
double-sided disks are used, but then not all users can read your 
disks), and, with four double-sided drives you will have over 4 Mega- 
bytes of on-line storage. MTU recommends the Qume DataTrak 8 to go with 
CoDOS, and we have followed their recommendation. 


Because we had only a single Qume, and were not yet certain what our 
second drive would be, we never bothered ta optimize our CODOS system to 
the Qume. When Jack Brown heard our disk drives chugging along, he 
asked if he could optimize one of our CODOS disks for us; he did and we 
could not only see the speed improvement, the system now purred, rather 
than chugged. Things did not have to hurry-up and then stop to wait for 
the software delays to time out. Except for the CODOS.Z program itself, 
all disk programs are independent of the optimization parameters. All 
MTU boards use the KIM-1 pinout (same as the SYM E-connector) and use 


small amounts of unregulated +8 V and +16 V. 
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Who should consider CODOS? If you want high resolution B/W graphics you 
will need the 8K RAM Visible Memory. Both it and the SYM fit neatly 
into an MTU Card Rack. Then the CODOS controller is actually part of a 
16K Dynamic RAM beard that fits into the same card rack. You can buy it 
just for the 16K memory expansicn, and add the disk drive(s) at a later 
date. You will then have one of the fastest, highest capacity, floppy 
disk systems available for any microcomputer system, bar none. Consider 
copos too, if your data base is likely to be on the largish side, or 
extremely rapid access is needed. 


We will be supporting the SYM/Visible Memory software and the RAE/CODGS 
interface. We recommend that the BASIC/CODOS interface be handled 
through Jack Brown; that way all of his BASIC enhancements will be an 
integral part of the interface. 


THE SYM USERS* GROUP FLOPPY DISK CONTROLLER (FDC-1) 


When we accepted Synertek Systems Corporation’s offer to be allowed to 
"adopt" the FDC-1 as “our baby” if we promised to support it properly, 
we did not fully realize what the “child-support" involved, or how much 
of an initial outlay of time and money would be required. 


If we are to fully support FDC-1 with a strong software base, it would 
be stupid to distribute the software on cassette. This means that we 
will have to set up two 32K dual disk drive systems, one 8 inch, and one 
S 1/4 inch, to do the job. That works out to lots of dollars. A dollar 
saving alternative is a single system on which we change controllers to 
Switch from one size drive to the other. We’*ll start out this way. 


So much for the hardware costs. Now for the software costs! 


Only a preliminary partial manual in rough draft form now exists. This 
must be completed and edited, and we’ll have to hire a typist and train 
him/her to "SWP" out the final version on one of our SYMs, and hire 
someone to do the drawings. Then there will be the printing costs, 
which are very high for small runs. Should we print 5@@, 1999, 2099, 
5998 manuals? At perhaps $3.90 per copy a run of 246% will mean a $6990 
outlay immediately. 


The EPROM source code was not available to us in RAE format so we had to 
disassemble the object code, and use RAE to replace the meaningless 
labels with meaningful mnemonics. Next we will append the comments. We 
are very thankful for Dessaintes” Disassembler and X-RAY; without them 
the job would be even more tedious than it has to be. Should we supply 
source code on disk, with the higher medium and copy-time costs, or 
should we go to a printed listing, with the higher initial costs? 


We tell you our problems, not to elicit your SYMpathy, but to answer, in 
advance, those who are wondering why it takes so long, and especially 
those who want to know why we (SUG) won’t "honor" the price for a fully 
assembled and tested FDC-1 at the price originally announced by SSC. 


The Synertek logo will not appear on the FDC-1, so we’1ll design our own. 
Since the FDC-1 is primarily "for SYM-1", and since fruit mames are 
state-of-the-art these days, should the logo read "perSYMone"? 


We will be placing initial orders for circuit boards, components, and 
drive cables in early April, and FDC-1 kits, complete with double-drive 
cables will be ready for shipment by mid-June, 1982, on a first ordered, 
first shipped basis, at the following prices (enclose check with order): 
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US $195 UPS, Street address only, not P.0. Box 


Canada $296 Airmail 
Europe $295 Airmail 
Elsewhere $289 Airmail 


>>>>>Please state whether 8 inch or 5 1/4 inch cables are needed<<<<<¢ 


California residents please add 6% sales tax. 
Foreign residents please advise classification for lowest duty rate. 


MISCELLANIA 

This is a "Special" issue for those readers who do not like special 
issues devoted to single topics. For those who like games, there is a 
"3S - D TIC-TAC-TOE", and for those who feel we are biased against BASIC 
in favor of assembly language, there is a BASIC DISASSEMBLER, which 
might even arouse a latent interest in assembly language programming. 


As usual, and with regret, we must apologize for not being able ta 
answer all of the letters requesting help. Getting out two issues in 
the same quarter left little "free" time. We will apologize in advance 
for the next quarter as follows: While all letters arriving durng the 
period mid-April through mid-May (1982) will be opened and read by the 
office staff while we are visiting Australia and New Zealand, few 
technical questions will be answered, so we request you hold your 
questions till later in May. 


When we return we’ll start our policy of batching questions and sending 
them on to those who volunteer to help (see page 1). We would gladly 
like to hear from some of the more experienced SYMmers who would enjoy 
helping beginneers, and even non-beginners needing help. 


For those readers who object to our use of the editorial "we" as 
sounding too pretentious, or pontifical, I can only reply that I was 
taught I should avoid the use of I as much as I could, and I don’t know 
how I can, in all due modesty, use an "I" for an "I" when I was educated 
to use “we” instead. I’m sorry about that. 


JEFF LAVIN was working very hard on preparing a questionnaire to be 
mailed with this issue. The answers would have gone into a computerized 
data base which would be useful in forming "Special Interest Groups”. 
He sent us a preliminary draft which looked great, but we were too 
overloaded to get it back to him in time for this issue. It will have 
highest priority for Issue No. 12. 


There were a number of notes to go in the space below about books writ— 
ten by SYMmers, and products available from SYMmers. Since there is not 
enough space to include them all, and we don’t want to upset those whose 
notes were not selected, we’ll just leave the space blank, and get all 
of the notes into Issue No. 12 


We will be teaching a SYM based Microprocessor Course at the University 
of California at Davis, Davis, CA 95616. If you are interested in more 
information, contact Garrett Jones, c/o University Extension, phone 


(916) 752-2177. 


This issue should reach Australia and New Zealand about the same time we 
do. We are both looking forward to an Easter in autumn, and to meeting 
many of our readers down-under . Look for Issue No. 12 around mid- July. 


SYM-PHYSIS 11-49 


